14.3.. Prebrojati dvocifrene brojeve kod kojih pri djeljenju sa 3 nije ostatak 1

Listing programa:

PROGRAM p14314021;
USES
  WinCrt;
VAR
  i,br: integer;
begin
 for i:=10 to 99 do
   if i mod 3<>1 then
     br:=br+1;
 writeln('broj dvocifrenih brojeva kod kojih pri djeljenju sa 3 nije ostatak 1 je ',br);
end.

Ispis na ekranu:

Index