Var p:real;
n,i:integer;
begin
readln (n);
p:=1;
for i:=1 to n do
p:=p*(1+(1/i));
writeln (p);
end.
Школа - рисуете шоколод, ставите 6 запятых (используется только первая буква; колесо - ставите 2 запятые (используем 4 буквы); пишите зачёркнутую букву е, потом - а.
учитель - пишете букву "у", дальше рисунок к слову "читать"(3 запятые - убираем последние три буквы) и рисуете ель.