Если х принадлежит интервалу (4;20), вычислить значение функции по формуле

var x:integer;y:real;

begin

 x:=-60;

 while xlt;=60 do

 begin

 if (xgt;4) and (xlt;20)

   then y:=2*x+1

     else y:=sin(x);

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

 x:=x+4;

 writeln;

 end;

end.

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