Паскаль!

На плоскости заданы три точки своими координатами. Определить расстояние от точек до начала координат и напечатать, какая из точек расположена ближе к началу координат. (с повтором)

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 p1;

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