Сложная задача!

[Pashok6]

Сообщение от Mad_Cat

Надо ж быть таким Бар...ном (и пропущена ни фига не буква "и" а буква "А")

uses Math;
var r,t,h,b:real;
begin
readln(b,h);
 t:=b;while t<=2 do begin
  r:=arctan((2*t-3)/(t+15))+ln(abs(t));
  if r<0 then writeln(t:10:5;r:10:5);
  t:=t+h;
 end;
 readln;
end.

Спасибо. Ну ни силён я в паскале! И зачем сразу оскорблять !?