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

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