{* Задача 2 *}

Unit ZADACHA2;
Interface
Implementation
Begin
 writeln('Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа.');
End.

Program paszad0;

Uses zadacha2.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 + 1);
  storona1 := st;
  storona2 := st * raz;
  write ('1 число-', storona1 : 7 : 2, ' ед.');
  write ('2 число-', storona2 : 7 : 2, ' ед.');
End.