LABAR

Program labar3;
var x,y,dx:real;
begin

x:=0;
y:=0;
dx:=0.001;
while ((x+5)*(x+5)/400+(x+2)*(x+2)/1089<=1)
do
begin
x:=x+dx;
writeln ('point 1:',x:6:4,'',y:6:4,');
while (x+2)*(x+2)+(y+5)*(y+5)=900
do
begin
writeln ('point 2:',x:6:4,'',y:6:4,');
x:=0;
y:=0;
while ((x+5)*(x+5)/400+(x+2)*(x-2)/1089<=1
do
begin

y:y-dx;
writeln ('point 3:',x:6:4,'',y:6:4,');
x:=0
y:=0
while ((x+2)*(x+2)+(y+5)*(y+5)<=900)
do
begin
y:y-dx;
writeln('point 4:',x:6:4,'',y:6:4,');
end.