program lab3;
uses crt;
var
a,an,ak,da,b,c,x,y:real;
k:byte;
begin clrscr;
writeln('vvedite an');readln(an);
writeln('vvedite ak');readln(ak);
writeln('vvedite da');readln(da);
writeln('vvedite b');readln(b );
writeln('vvedite c');readln(c );
writeln('an=',an:6:4);
writeln('ak=',ak:6:4);
writeln('da=',da:6:4);
writeln('b=',b:6:4);
writeln('c=',c:6:4);
k:=0;
a:=an;
begin
repeat
if (3*a-b=0) or (b=0) then writeln('raschet nevozmozhen!',' pri a=',a:6:4)
else
x:=(abs(sqr(a)+b*c))/(3*a-b )-((sqr(a)+4)/b);
write('x=',x:6:4);
y:=(x-a*sqr(b )+sqr(c ))*abs(b )/4;
writeln(' y=',y:6:4,' pri a=',a:6:4);
a:=a+da;
if k<22 then k:=k+1 else begin writeln('Nazhmite ENTER');readln;k:=0;end;
until a>=ak;
end;
writeln('Konec!');
readln;
end.
