Фрагмент организует ввод данных до тех пор, пока не будет введен ноль и подсчитывает количество введенных чисел, значение которых превышает единицу.
var
k,x:integer;
begin
k:=0;
repeat
Read(x);
if x>1 then Inc(k)
until x=0;
Writeln(k)
end.
Тестовое решение:
1 5 -10 3 -8 6 1 2 -7 4 0
5