как написать погу на паскале?

Question

Написать программу для наглядного представления накопления суммы. В цикле вводить целые числа x, которые добавлять в сумму S . На каждом шаге выводить значение суммы, а также k – количество четных чисел среди введенных. Ввод прекратить, когда S станет больше 500.

Андрей Кравченко · Accepted Answer

Никак, это невозможно.

Ольга Томак · Answer

учи паскаль) и всё будет (хотя кому он кроме школьников нужен?)

Марианна Уланова · Answer

Ты в слове "погу" забыл "р" вставить, или вместо "п" "г" написал? 
По сути: 
var 
S,buf,k:Integer; 
 
... 
 
k:=0; 
s:=0; 
while(S<500) 
begin 
readln(buf); 
s:=s+buf; 
if buf mod 2 = 0 then 
Inc(k); 
writeln(S,k); 
end;