{* Стороны прямоугольника *}

Unit PAS49257;
Interface
Implementation
Begin
 writeln('Одна сторона прямоугольника на 5 см длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника.');
End.

Program pas49257;

Uses pas49257.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  summa    : real;
  raz      : real;
  st       : real;
  storona1 : real;
  storona2 : real;
Begin
  ClrScr; {* Очищаем экран *}
  writeln('Введите сумму длин сторон прямоугольника');
  readln(summa);
  writeln('Введите на сколько одна сторона больше другой');
  readln(raz);
  st := (summa - raz) / 2;
  storona1 := st;
  storona2 := st + raz;
  write ('ширина-', storona1 : 7 : 2, 'см.');
  write ('длина-', storona2 : 7 : 2, 'см.');
End.