{$mode objfpc}{$H-}{$R+}{$T+}{$Q+}{$V+}{$D+}{$X-}{$warnings on}
program coordenadas;
uses math;

type 
    TipoPunto= record
        x: real;
        y: real;
    end;

function distancia(a, b: TipoPunto): real;
begin
    result := sqrt((b.x-a.x)**2 + (b.y-a.y)**2);
end;

procedure escribe_punto(a: TipoPunto);
begin
    write('(', a.x:0:3);
    write(',');
    write(a.y:0:3,')');
end;
    
var 
    p1,p2 : TipoPunto;

begin
    p1.x := 1;
    p1.y := 3;
    p2.x := 0;
    p2.y := -1;
   
    write('La distancia entre ');
    escribe_punto(p1);
    write(' y ');
    escribe_punto(p2);
    writeln(' es ', distancia(p1,p2):0:3);
end.