Program zad12;
Var
x1,x2,y1,y2,x3,y3:real ;
Begin
writeln('введите x1 ');
readln (x1);
writeln('введите y1');
readln (y1);
writeln('введите x2 ');
readln (x2);
writeln('введите y2');
readln (y2);
x3:=x2-x1;
y3:=y2-y1;
writeln('растояние=(',x3:0:0,',',y3:0:0,')');
end.