Var a, b, n:integer ;
Begin
A:=10;
B:=33;
N:=0;
While a<=b do begin
If a mod 3=0 then begin
Write(' a=', a) ;
N:=n+1;
End;
A:=a+1;
Writeln(' n=', n) ;
End.
Var a, b, n:integer ;
Begin
A:=10;
B:=33;
N:=0;
While a<=b do begin
If a mod 3=0 then begin
Write(' a=', a) ;
N:=n+1;
End;
A:=a+1;
End;
Writeln(' n=', n) ;
End.