Question

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Answer 1

var

 i,a,pr:integer;

begin

 pr:=1;

 for i:=1 to 10 do

   begin

     readln(a);

     if a mod 5 = 0 then  

       pr:=pr*a;

   end;

 writeln(pr);

end.