Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.

var i,k:integer;
s:string;
Begin
  for i := 1 to 25 do begin
   readln(k);
   s:=s+inttostr(k);
  end;

  k:=0;
  for i := 1 to length(s) do
   if s[i]='0' then k:=k+1;

  writeln('K=',k);
End.