program  noyabrz2;
uses crt;
var  a:integer;
begin
clrscr;
for a:=35   to   60 do
if (a mod 7=1) or  (a mod 7=2) or  (a mod 7=5)
then writeln(a);
readkey;
end.