С клавиатуры вводятся 20 чисел. Найти произведение чисел кратных 5. Найти количество неотрицательных чисел. Решить задачу эту задачу надо в Turbo Pascal, методом repeat until или while if

Отметь как лучшее!
program qq;
var a:array[1..20]of integer; 
i,n,Pro:integer;
begin
  for i := 1 to 20 do begin
  readln(a[i]);
  end;
  Pro := 1; 
  for i := 1 to 20 do begin   
     if a[i] mod 5 = 0 then     
          Pro := Pro * a[i];   
      end;   
      if a[i] >= 0 then     
      n := n + 1;
end. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.