Pascal, цикл для, составить программу.
4)Ввести 12 чисел. Определить сколько чисел кратно 5.

program up1;var e,w,q:integer;beginfor i:=1 to 12 dobeginwriteln('введите число');read(q);w:=q mod 5;if w=0 then e:=e+1;end;writeln(e,' чисел кратных 5');end.