Ввести n чисел. Определить сколько среди них положительных и кратных трём. Результат получить в переменной k.
Исходные данные: n=5.

var
  k, n: byte;
  t: integer;

begin
  readln(n);
  for i: byte := 1 to n do
  begin
    readln(t);
    if ((t > 0) and (t mod 3 = 0)) then
      k += 1;
  end;
  writeln(k);
end.
---------------------------
алг 
нач
цел k, i, n, t
k := 0
ввод n
нц для i от 1 до n
ввод t
если ((t > 0) и (mod(t, 3) = 0)) то
k := k + 1
все
кц
вывод k
кон