Правильно ли я решила? : определить расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1) и m2(x2,y2). program rastoyanie; uses crt; var m1,m2,g: real; begin writeln('x1,y1'); read(m1); writeln('x2,y2'); read(m2); g: =abs(m1-m2); writeln('rastoyanie megdu tochkami: g'); end.

кратко, программа рабочая:

uses crt;
var x1,y1,x2,y2,g:real;
begin
write('vvod x1,y1');
read(x1,y1);
write('vvod x2,y2');
read(x2,y2);
g:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
writeln(g);
readkey;
end.

после запуска, например, вводим (3,4) и (0,0) ответ 5