Дано n случайных чисел в диапазоне от -3 до 3. вычислите, сколько из них не с 0. составить программу, используя цикл for. для случайных ч исел используйте функцию random. n определяет пользователь. числа вывести на экран.

Var a,i,n,k : integer;
Begin
  randomize;
  Readln(n);
  for i:=1 to n do begin
    a:=random(7)-3;
    if a=0 then k:=k+1;
    writeln(i,' число = ',a);
  end;
  Writeln('Количество 0: ',k);
end.