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.