Ввести 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 кон