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

//Pascal ABC.NET 3.1 сборка 1256Var 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.