Решения задач на тему ввода и вывода данных в Pascal

Решение задачи №20

program twenty;
var
   x1,x2,y1,y2,dlina:real;
begin
   writeln('Введите координаты:');
   write('x1 = ');
   readln(x1);
   write('y1 = ');
   readln(y1);
   write('x2 = ');
   readln(x2);
   write('y2 = ');
   readln(y2);
   dlina:=sqrt(sqr(x2-x1)+sqr(y2-y1));
   write('Расстояние = ',dlina:2:2);
end.

Назад