Синформатикой(паскаль) 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;
begin
h:=-9;
 while (h<=9) do  
  begin
   y:=4*h*h+5*h-10;
   h:=h+3;
   writeln(y);
   end;
end.