Страница 145 §3.3 номер 3, ГДЗ по информатике за 8 класс к учебнику Босовой

program z3;

var

  l: real;

  xa, ya, xb, yb: integer;

begin

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

  readln(xa, ya);

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

  readln(xb, yb);

  l := sqrt(sqr(xb - xa) + sqr(yb - ya));

  write('|AB|=', l:6:2)

end.