Program Pzim ;
Begin
      integer fila(TAMANHO);
      integer ini:=0;
      integer fim:=0;
      integer qtd:=0;
      integer op:=0;
      integer valor:=0;

    procedure entrar()

    begin
        integer i;

        if(fim=TAMANHO)
        begin
            writeln('Fila esta cheia!');
        end

            else begin
                writeln('\n informe o valor a ser inserido:\n');
                readln ('\n valor');
                fila(fim)=valor;
                fim++;
                end

            procedure sair()
            begin
              integer i;

                if(ini=fim)
                  begin
                    writeln('Fila esta vazia!');
                    end
                else
                begin
                   for(i=0; i<TAMANHO; i++)
                   begin
                       fila(i)=fila(i+1);
                       end
                       fila(fim)=0;
                       fim--;
                       end
                       end

      procedure mostrar()

    begin
    Integer i;

    writeln(''#9'[ ');

    for(i := 0; i<TAMANHO; i++)
    begin
        writeln('%d ', fila[i]);

    end;
    writeln(']'#10''#10'');
end;
procedure menu()
begin
    writeln(''#10'*'#9'Escolha a opcao: '#9'*'#10'');
    writeln(''#9'1 - Inserir: '#9''#9''#10'');
    writeln(''#9'2 - Remover:'#9''#9' '#10'');
    writeln(''#9'3 - Sair.'#9''#9' '#10'');
end;

Integer main()
begin

      while (op <> 3) do
      begin
         system ('cls');//para limpar a tela

         writeln('    quantidade de pessoas na fila'#10''); /
         writeln(''#10''#9'      %d '#10''#10'', qtd);
         mostrar();
         menu();
         readln('%d', &op);
           case (op) of
           begin
               1:
				entrar();
                if (qtd<TAMANHO) then
				qtd++;
                break;

               2:
                sair();
                if (qtd>0) then
                qtd--;
                break;


               else
               	if (op <> 3) then begin
                printf('Invalida!'#10'');
                system('pause');
				break;
                         end;
           end;
      end;
      system('pause');
       Result := 0;
end;




End.