Program 229;
var k,n:integer;
BEGIN
writeln('vvedite 1 readln(k);
n:=k mod 7;
case n of
0:writeln('pn');
1:writeln('vt');
2:writeln('sr');
3:writeln('4t');
4:writeln('pt');
5:writeln('sb');
6:writeln('vs');
end;
readln;
END.