помогите с информатикой(паскаль)
1) написать программу, определяющую принадлежность числа A интервалу [-5;25] (включительно).
2) написать программу для вычисления таблицы значений функции y=4x^2+5x-10 на отрезке [-9;9] c шагом h=3.

1.var a:real;begin write('Vvedite chislo'); readln(a);if ((a>=-5) and (a<=25)) then write('chislo vhodit v interval [-5;25]')  else write('chislo ne vhodit v interval [-5;25]');end.2.var h:integer;y:real;beginh:=-9; while (h<=9) do    begin   y:=4*h*h+5*h-10;   h:=h+3;   writeln(y);   end;end.