// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
Пример
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5