Программа в Паскале. Убедительная просьба: прежде чем выкладывать решение, попробуйте её...

Question

Программа в Паскале. Убедительная просьба: прежде чем выкладывать решение, попробуйте её в самой программе.

---

Answer 1

В паскале попробывал все получилось)

var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.