Program Pr1;uses crt;var a,b,c:integer;Beginclrscr;c:=0;writeln('Vvedite a i b');readln(a,b);while a<=b do begin if a mod 3=0 then c:=c+1; a:=a+1; end;writeln(c);end.
Program Pr1;
uses crt;
var a,b,c:integer;
Begin
clrscr;
c:=0;
writeln('Vvedite a i b');
readln(a,b);
while a<=b do begin
if a mod 3=0 then c:=c+1;
a:=a+1;
end;
writeln(c);
end.