 janaljubche 
                                                09.10.2019 11:48
                                                
                                                janaljubche 
                                                09.10.2019 11:48
                                             TheAgentSquid 
                                                13.03.2019 20:57
                                                
                                                TheAgentSquid 
                                                13.03.2019 20:57
                                             апк8 
                                                13.03.2019 20:54
                                                
                                                апк8 
                                                13.03.2019 20:54
                                             милан64488 
                                                13.03.2019 20:52
                                                
                                                милан64488 
                                                13.03.2019 20:52
                                             IgnatBakaev 
                                                05.06.2019 21:00
                                                
                                                IgnatBakaev 
                                                05.06.2019 21:00
                                             lucky20171 
                                                23.09.2019 16:40
                                                
                                                lucky20171 
                                                23.09.2019 16:40
                                             nogood2 
                                                23.09.2019 16:40
                                                
                                                nogood2 
                                                23.09.2019 16:40
                                             svashalol 
                                                13.06.2019 20:10
                                                
                                                svashalol 
                                                13.06.2019 20:10
                                            
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.