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.
