На предприятии 2-м рабочим выделена премия (N руб). Разделить эту премию между рабочими в зависимости от стажа их работы на предприятии (прямо пропорциональная зависимость). Стаж вводится с клавиатуры.

//PascalABC.NET 3.2 сборка 1318

begin
  var n:=ReadInteger(Премия:);
  var w1:=ReadInteger(Первый рабочий:);
  var w2:=ReadInteger(Второй рабочий:);
  writeln(Первому рабочему:,n*(w1/(w1+w2)));
  writeln(Второму рабочему:,n*(w2/(w1+w2)));
end.

Пример ввода:
24
3
9
Пример вывода:
6
18