Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа — Pascal(Паскаль)

uses crt;

var
  summa, raz, st, storona1, 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.