{* Задача 568 *}

Unit ZADACH568;
Interface
Implementation
Begin
 writeln('Заданы координаты концов двух векторов, выходящих из начала координат. Найти длины этих векторов.');
End.

Program zadach568;

Uses zadach568.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  x1 : integer;
  x2 : integer;
  y1 : integer;
  y2 : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Координаты конца 1 вектора x1, y1=');
  read(x1, y1);
  write('Координаты конца 2 вектора x2, y2=');
  read(x2, y2);
  writeln('Длинна 1 вектора ', sqrt(sqr(x1) + sqr(y1)) : 3:2);
  writeln('Длинна 2 вектора ', sqrt(sqr(x2) + sqr(y2)) : 3:2);
  readkey; {* Нажмите любую клавишу *}
End.