Запрограммируйте на языке Паскаль. Пожалуйста, очень надо...
program znan;
var
a,b:real;
begin
a:=-101;
b:=101;
while a begin
a:=a+2;
b:=b-2;
end;
a:=sin(a-1);
end.
