program jjj; uses crt; var n:integer;y:real; BEGIN clrscr; writeln('VVedite mecacz n'); readln(n); y:=(n mod 12)+1; writeln(y:7:0); readln; END .