Вpascal двое рабочих заработали вместе 900 рублей. один работал 2 недели, а другой 4 недели. сколько денег заработал каждый? надо написать программу в pascal

Var w:real;
begin
w:=900/(2+4);
writeln('Первый рабочий заработал ',w*2,' руб.');
writeln('Второй рабочий заработал ',w*4,' руб.');
end.

Результат:
Первый рабочий заработал 300 руб.
Второй рабочий заработал 600 руб.