Question

Правильно ли я решила?Задача: Определить расстояние на плоскости между двумя точками с заданными координатами 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.

Answer 1

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

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