Найти количество чисел большее 1-му , 10 данных целых чисел.(Паскаль)

Question

Найти количество чисел большее 1-му , 10 данных целых чисел.(Паскаль)

Answer 1

Var x,y,i: integer;
begin
y:=0;
for i:=1 to 10 do
begin
readln(x);
if x>1 then inc(y);
end;
writeln(y);
end.