Запрограммируйте на языке Паскаль.
Пожалуйста, очень надо...

program znan;

var

a,b:real;

begin

a:=-101;

b:=101;

while a<b do

begin

a:=a+2;

b:=b-2;

end;

a:=sin(a-1);

end.