Язык Pascal. Напишите программу, которая позволяет вводить координаты двух точек на плоскости. (координаты целочисленые) и выводит на экран расстояние между ними.

program  z1;

var xa,ya,xb,yb:integer;

begin

write('Введите координаты первой точки: ');

read(xa,ya);

writeln('Введите координаты второй точки: ');

read(xb,yb);

writeln('Расстояние между точками равно: ',sqrt(sqr(xb-xa)+sqr(yb-ya)):0:3);

end.

Объяснение:

Расстояние между двумя точками A(xa, ya) и B(xb, yb) на плоскости: