Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу. Числа, следующие за числом 0, считывать не нужно. найти количество элементов последовательности больших 4
var a,count:integer;
begin
repeat
readln(a);
if a > 4 then
inc(count);
until
a = 0;
writeln;
writeln(count);
end.
Объяснение: