Question

Помогите пожалуйста, очень нужно

Answer 1

var

a,n,k,i:integer;

begin

 writeln('введите количество чисел');

 readln(n);

 for i:=1 to n do

 begin

   writeln('введите число');

   readln(a);

   if (a mod 3=0) and (a mod 10 =5) then k:=k+1  

 end;

 writeln(k)

end.