Дано целое число К и набор ненулевых целых чисел; признак его завершения — 0. Вывести количество чисел в наборе , меньших К- Pascal(Паскаль)

var
  l,kol,k,a:integer;
begin
    readln(k);
    kol:=0;
    repeat
     readln(a);
     if (a<>0) and (a<k) then inc(kol);
    until a=0;
    write(kol);
end.