Pascal !!! Паскаль !!! Пожалуйста, выполните задание в паскале и если не сложно , то можете нарисовать блок-схему .

var

x,sum:real;

begin

   x:=-12.5;

   sum:=0;

 while x<-11.85 do

 begin

 sum:=sum + (10 - arctan(sqr(x)))/(ln(abs(x))/ln(5));

 x:=x+0.0562;

 end;

 writeln(sum:0:6);

end.

Объяснение:

1. Поправил свой , смотри!