задачі

 Знайти відстань між двома заданими точками з координатами А(x,y),B(x1,y1)
Математична модель -   l:=sqrt(sqr(x-x1)+sqr(y-y1));

program Otrezok;
uses Crt;
var
  x,y, x1,y1            : real;
  l                     : real;
begin
  ClrScr;
  Write('‚ Ведіть координату   X:>'); Readln(x);
  Write('‚ Ведіть координату  Y:>'); Readln(y);
  Write('‚ Ведіть координату  X1:>'); Readln(x1);
  Write('‚ Ведіть координату Y1:>'); Readln(y1);
  l:=sqrt(sqr(x-x1)+sqr(y-y1));
  Writeln('Відстань між точками ',l:2:3);

end.