uses crt;
var n,d: longint;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  if n<=12 then
   begin
    d:=n;
    writeln (d,' AM');
   end;
  if n>12 then
   begin
    d:=n-12;
    writeln (d,' PM');
   end;
 readln;
end.

Chắc chắn đúng 100000%

đã chạy thử chương trình

thuật toán nè bạn:

b1: nhập n

b2: nếu n < hoặc = 12 thì (if n<=12 then)

begin

 d:=n;

 writeln (d,' AM');
end;

b3: nếu n>12 thì (if n>12 then)

  begin
    d:=n-12;
    writeln (d,' PM');
   end;

 b4: chạy chương trình thôi .....(ctrl+f9)     :)   ^_^

program bai_giai;
uses crt;
var t:longint;
begin
    clrscr;
    repeat
        write('Nhap t: ');  readln(t);
    until (t>=0) and (t<=23);
    write(t mod 12);
    if t<=12 then write('AM') else write('PM');
    readln;
end.