uses crt;
var  i,dem,t: longint;
begin
        clrscr;
        write('nhap t: ');
        readln(t);
        dem:=0;
        if t<=11 then write('bay gio la ',t,' AM')
                else
                        begin
                        for i:=13 to t do dem:=dem+1;
                        if dem=0 then write('bay gio la 12PM')
                                else
                                write('bay gio la ',dem, ' PM');
                        end;
        readln;
end.

uses crt;
var t:longint;
begin
clrscr;
   write('t=');readln(t);
   write(t mod 12);
   if t<12 then write('AM') else write('PM');
readln
end.