program pascal antrian

 uses crt;
 var x:array[1..10] of string;
     i,n,pil:integer;
     procedure masuk;
     begin if (n=10) then writeln('sudah penuh') else
        begin n:=n+1;
              readln(x[n]);
        end;
    end;
    procedure keluar;
    begin
        for i:=1 to n-1 do x[i]:=x[i+1];
        n:=n-1;
    end;
    procedure cetak; begin for i:=1 to n do writeln(x[i]);readln;end;
 

    begin n:=0;
        repeat clrscr;
        writeln('1.masuk antrian');
         writeln('2.keluar antrian');
          writeln('3.cetak antrian');
           writeln('4.selesai'); write('pilih= ');readln(pil);
        case pil of
            1:masuk;
            2:keluar;
            3:cetak;
        end;
        until pil=4;
end.