Составить листинг программы в паскале ввести файл f из 11 элементов. определить в нём количество тех элементов, которые при делении на 3 остаток 2.

//Pascal ABC.NET v3.1 сборка 1172

Var
 f:text;
 i,k,a:integer;
begin
 assign(f,'text.txt');
 reset(f);
 for i:=1 to 11 do
  begin
   read(f,a);
   if a mod 3=2 then inc(k);
  end;
 close(f);
 writeln(k);
end.

Данные в файле text.txt:
1 2 3 4 5 6 7 8 9 10 11
Пример вывода:
4