Как запросить пользователя ввести 10 чисел через цикл? - Pascal ABC

Формулировка задачи:

Есть код

                    Листинг программы
                
 
                        
                          
                    
var a : array [1..10] of integer; num, i : integer;
 
begin
  Write('Введите 10 чисел: ');
  for i:=1 to 10 do
  Readln(a[i]);
  num :=0;
  
  for i:=1 to 10 do
  if a[1] = 0 then num := num +1;
  Writeln('Количество нулей: ', num);
end.

Нужно, что бы вместо "Введите 10 чисел" был запросто по очереди: Введите 1 число: Введите 2 число: Введите 3 число: и так до 10 Как можно это сделать при помощи цикла?

Решение задачи: «Как запросить пользователя ввести 10 чисел через цикл?»

Листинг программы

for i:=1 to 10 do
 begin
  write('Введите ',i,' число');
  readln(a[i]);
 end;

Объяснение кода листинга программы

В данном коде используется цикл for, который выполняется 10 раз. На каждой итерации цикла пользователю предлагается ввести число, которое сохраняется в переменную a[i] (i-номер введенного числа). Значение i увеличивается на 1 с каждой итерацией. После ввода всех 10 чисел, цикл завершается.