По паскалю: ввести одномерный массив а из 10 элементов. определить количество элементов кратных трём, и сделать блок-схему к нему

//Pascal ABC.NET 3.1 сборка 1256

Var
 ar:array[1..10] of integer;
 i,k:integer;
begin
 for i:=1 to 10 do
  begin
   readln(ar[i]);
   if ar[i] mod 3=0 then k:=k+1;
  end;
 writeln(k);
end.