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