К какому выражению то? У меня нет ничего....
1.Налил в чайник воды.
2.Поставил на газ и подождал пока он закипит.
3.Насыпал в заварник заварку.
4.Залил кипятком.
5.Подождал 10-15 мин.
(я так писала, только не про чай)
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)