Здравствуйте! Помогите, пожалуйста, решить задачу по информатике ...

Motes

var  f:text;  i, c:integer;  count:byte;begin  randomize;  Assign(f, 'out.txt');  rewrite(f);  count := 0;  for i := 1 to 100 do  begin    c := random(21);    if c = 0 then      inc(count);    write(f, c, ' ');  end;  close(f);  writeln('Количество элементов равных 0 равно ', count);end.