Ввести с экрана координаты двух точек, найти расстояние между ними.

 

var    x, x1, y, y1, d : Integer;begin    Writeln('Введите координаты первой точки:');    Write('x: ');    Readln(x);    Write('y: ');    Readln(y);    Writeln('Введите координаты второй точки:');    Write('x: ');    Readln(x1);    Write('y: ');    Readln(y1);    d := sqrt( sqr(x1-x) + sqr(y1-y) );    Write('Расстояние между двумя точками: ', d);    Readln;end.