Ввести N чисел, найти произведение чисел кратных 3 - Turbo Pascal

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

Ввести N чисел, найти произведение чисел кратных 3 написать прогу в паскале через 3 цикла while repeat for все три цикла в одной проге

Решение задачи: «Ввести N чисел, найти произведение чисел кратных 3»

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

uses crt;
var n,i,a,k:integer;
    p:real;
begin
clrscr;
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
{цикл while}
p:=1;
k:=0;
i:=1;
while i<=n do
 begin
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
  inc(i);
 end;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
{цикл repeat}
p:=1;
k:=0;
i:=1;
repeat
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
  inc(i);
until i>n;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
{цикл for}
p:=1;
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
 end;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
readln
end.

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

Ввод значения переменной n с помощью функции readln.
Ввод N чисел с помощью цикла while и функции readln.
Проверка на кратность каждого введенного числа 3 с помощью оператора mod.
Если число кратно 3, то переменной k присваивается значение 1, а произведение чисел, кратных 3, сохраняется в переменной p.
После ввода всех N чисел, выводится сообщение о том, есть ли числа, кратные 3, с помощью условного оператора if.
Если k равна 0, то выводится сообщение Нет чисел кратных 3.
Если k не равна 0, то выводится сообщение Произведение чисел кратных 3=, за которым следует значение переменной p.
Ввод значения переменной n с помощью функции readln.
Ввод N чисел с помощью цикла repeat и функции readln.
Проверка на кратность каждого введенного числа 3 с помощью оператора mod.
Если число кратно 3, то переменной k присваивается значение 1, а произведение чисел, кратных 3, сохраняется в переменной p.
После ввода всех N чисел, выводится сообщение о том, есть ли числа, кратные 3, с помощью условного оператора if.
Если k равна 0, то выводится сообщение Нет чисел кратных 3.
Если k не равна 0, то выводится сообщение Произведение чисел кратных 3=, за которым следует значение переменной p.
Ввод значения переменной n с помощью функции readln.
Ввод N чисел с помощью цикла for и функции readln.
Проверка на кратность каждого введенного числа 3 с помощью оператора mod.
Если число кратно 3, то переменной k присваивается значение 1, а произведение чисел, кратных 3, сохраняется в переменной p.
После ввода всех N чисел, выводится сообщение о том, есть ли числа, кратные 3, с помощью условного оператора if.
Если k равна 0, то выводится сообщение Нет чисел кратных 3.
Если k не равна 0, то выводится сообщение Произведение чисел кратных 3=, за которым следует значение переменной p.