Помогите с информатикой!!!
Ввести с клавиатуры координаты двух точек (А и В) на плоскости (вещ. числа) . Вычислите длину отрезка АВ.

Program Programma;
Uses crt;

var xA,xB,yA,yB,D: real;

Begin clrscr;
      write(Введите координаты точки A через пробел: );
      readln(xA,yA);
      write(Введите координаты точки B через пробел: );
      readln(xB,yB);
     
      d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
      writeln;
      write(Длина отрезака AB = ,d:0:3)
  End.
     

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.