Лабораторная 3 / LABB.PAS

uses crt;
var x,y,dx:real;
begin
clrscr;
x:=0;
y:=0;
dx:=0.001;
while (((x+5)*(x+5))/400+((y-2)*(y-2))/1089<1)
do
begin
x:=x+dx;
end;
writeln('point 1:',x:6:4,' ',y:6:4);
while ((x+2)*(x+2)+(y+5)*(y+5)<900)
do
begin
x:=x+dx;
y:=8.6-0.57*x;
end;
writeln('point 2:',x:6:4,' ',y:6:4);
x:=0;
y:=0;
while (((x+5)*(x+5))/400+((y-2)*(y-2))/1089<1)
do
begin
y:=y-dx;
end;
writeln('point 3:',x:6:4,' ',y:6:4);
while ((x+2)*(x+2)+(y+5)*(y+5)<900)
do
begin
y:=y-dx;
end;
writeln('point 4:',x:6:4,' ',y:6:4);
end.