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

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