Спасибо за советы) Но решил подумать, и вот другой вариант:
Код:
program zadacha;
uses crt;
var x1,x2,h,a1,a2,h2,b,i,k,y:real;
begin
clrscr;
write('vvedite x1 ');readln(x1);
write('vvedite x2 ');readln(x2);
write('vvedite shag ');readln(h);
write('vvedite a1 ');readln(a1);
write('vvedite a2 ');readln(a2);
write('vvedite h2 ');readln(h2);
writeln;
i:=x1;{k:=a1;}
writeln(' x y a b ');
while i<x2 do begin k:=a1;
while k<a2 do begin
b:=sqrt(abs((1+k)/(1+i)));
if i<0 then y:=((k*k+b*b)*i/sqrt(abs(1+k)));
if i=0 then y:=sqr(k*k+b*b);
if (0<i) and (i<1) then y:=(ln(i)/(k*k+b*b));
if (i=1) or (i>1) then y:=sqrt(i*(k*k+b*b));
writeln(' ',i:3:1,' ',y:3:1,' ',k:3:1,' ',b:3:1,' ');
k:=k+h2;end;
i:=i+h;end;
readkey;
end.