У=ах^2+а^2х+5^х на отрезке а=[-3;6] с шагом h=0,3, где х=-1,07

Написать программу на языке Паскаль, используя цикл WHILE
Вводить с клавиатуры любые числа до тех пор, пока не будет введено любое целое число. Сколько чисел было введено всего и сколько из них было меньше 2?
Посчитать, вывести на экран с пояснением.

функции F(x)=sin(x)+tg(x) на отрезке [А, В] при изменении аргумента в точках хi = А+iН, где Н – шаг. А=1, В=2, Н=0,125.

Листинг программы:

Program Tabulir;

Var x, y: real;

Begin x:=1;

While x≤2 do begin

y:=sin(x)+tg(x);

writeln (x:9:1, y:16:3);

x:=x+0,125;

End.

получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.