Program cyba bratan;
    var x1, x2, x3, y1, y2, y3, nomer: integer;
    s1, s2, s3, min: real;
    begin
    writeln('суба братан введи координаты первой точки:')
    write('x=') ; read(x1) ; write ('y=') readln(y1) ;
    writeln ('введите координаты второй точки:') ;
    write('x=') ; read(x2) ; write ('y=') readln(y2) ;
    writeln ('введите координаты третьей точки:') ;
    write('x=') ; read(x3) ; write ('y=') readln(y3) ;
    s1:=sqrt(sqr(x1)+sqr(y1) );
    s2:=sqrt(sqr(x2)+sqr(y2) );
    s3:=sqrt(sqr(x3)+sqr(y3) );
    min:=s1;
    nomer:=1;
    if mim>s2
    then 
      begin
      min:=s2; nomer:=2
      end
    if mim>s3
    then
      begin
      min:=s3; nomer:=3
      end
    write('ответ:')
    writeln('это точка', nomer, '. расстояние =', min:4:1)
end.