Каждый день ученик получал одну пятерку , три двойки и на 4 тройки больше чем всех оценок. вопрос: сколько у ученика будет троек через год , два месяца , неделю и 3 дня. простите за не качественную формулировку.

Var
five,two, three,time,all: integer;
begin
writeln('Введите количество пятерок и двоек');
readln(five,two);
three:=4*(five+two);
writeln('Каждый день ученик получает ', three,' троек');
all:=436* three;
writeln('За год, два месяца, одну неделю и 3 дня ученик получит ', all,' троек');
readln;
end.