Каждый день ученик получал одну пятерку, три двойки и на 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.