Var x1,y1,x2,y2,x3,y3,r1,r2,r3:real; min,p:integer;
begin
repeat
write('x1, y1: ');
readln(x1,y1);
write('x2, y2: ');
readln(x2,y2);
write('x3, y3: ');
readln(x3,y3);
r1:=sqrt(x1*x1+y1*y1);
r2:=sqrt(x2*x2+y2*y2);
r3:=sqrt(x3*x3+y3*y3);
writeln('r1 = ',r1:5:2,' r2 = ',r2:5:2,' r3 = ',r3:5:2);
if r1 if r3 writeln('К началу координат ближе точка № ',min);
write('Хотите повторить? (1-да, 0-нет) ');
readln(p);
until p<>1;
end.
Пример:
x1, y1: 3 -2
x2, y2: -4 1
x3, y3: 5 0
r1 = 3.61 r2 = 4.12 r3 = 5.00
К началу координат ближе точка № 1
Хотите повторить? (1-да, 0-нет) 1
x1, y1: 8 0
x2, y2: -3 4
x3, y3: 5 -2
r1 = 8.00 r2 = 5.00 r3 = 5.39
К началу координат ближе точка № 2
Хотите повторить? (1-да, 0-нет) 0