Ввести 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, tk := 0ввод nнц для i от 1 до nввод tесли ((t > 0) и (mod(t, 3) = 0)) тоk := k + 1всекцвывод kкон