Если х принадлежит интервалу (4;20), вычислить значение функции по формуле
y=х2+1, иначе вычислить значение функции по формуле y=sin(х), задать изменение х от -60
до 60 с шагом 4.

var x:integer;y:real;

begin

 x:=-60;

 while x<=60 do

 begin

 if (x>4) and (x<20)

   then y:=2*x+1

     else y:=sin(x);

 write('x=',x,'  y=',y);

 x:=x+4;

 writeln;

 end;

end.

В EXCEL: вводим начальное значение x=-60 и дальше вводим копированием формулы по образцу