Programa de Calcular Salário Feito em Pascal

Program CALCULO_SALARIO;

Var

nome: string[40];

func: string[12];

cargo, base, percent, valor, sal:real;

N:char;

BEGIN

N:='S';

while (n='S') or (n='s') do

   begin

      writeln('                             SCRIPT BRASIL');

      writeln;

      writeln('               SISTEMA DE CALCULO DE FOLHA DE PAGAMENTO');

      writeln('____________________________________________________________');

      writeln;

      writeln('Digite o nome do Funcionário: ');

      readln(nome);

      writeln('Digite o código referente ao cargo do Funcionário, ',nome,' :');

      writeln('(1)Escrituário     (2)Secretário     (3)Caixa     (4)Gerente');

      readln(cargo);

      writeln('Informe o valor do salário base do funcionário: ');

      readln(base);

      percent:=0;

      If (cargo = 1 ) then

        begin

          func:='Escrituário';

          percent:=50;

          valor:=(base*percent)/100;

          sal:=base+valor;

        end

     Else

       If (cargo = 2 )then

        begin

          func:='Secretário';

          percent:=35;

          valor:=(base*percent)/100;

          sal:=base+valor;

        end

        else

          If (cargo = 3 )then

            begin

              func:='Caixa';

              percent:=20;

              valor:=(base*percent)/100;

              sal:=base+valor;

            end

            else

              If (cargo = 4 ) then

                begin

                  func:='Gerente';

                  percent:=10;

                  valor:=(base*percent)/100;

                  sal:=base+valor;

                end;

           

           writeln;

           writeln;

           writeln('----------------------------------------------------------------------------');

           writeln('                             CONTRA CHEQUE');

           writeln('_________________________________________________________');

           writeln;

           writeln('Nome do Funcionário: ',nome);

           writeln('Cargo: ',func);

           writeln('Salário base: R$ ',base:5:2);

           writeln('Porcentagem de aumento: ',percent:2:0,'%');

           writeln('valor do aumento: R$ ', valor:5:2);

           writeln;

           writeln('Total de Proventos: R$ ',sal:5:2);

           writeln;

           writeln('Valor corrigido: R$ ',sal:5:2);

           writeln;

           writeln;

           writeln;

           writeln('Líquido a Receber: R$ ',sal:5:2);

           writeln;

           writeln('----------------------------------------------------------------------------');

           writeln;         

           writeln('Deseja calcular outra conta? (s/n)');

           readln(n);

             if (n='n') or (n='N') then

                begin

                   writeln;

                   writeln;

                   writeln('                        Saindo do sistema...');

                   writeln('                     Sistema sendo encerrado...');

                   writeln;

                   writeln;

                   writeln('                       SISTEMA ENCERRRADO!!!');

                   writeln('                    PRESSIONE "ENTER" PARA SAIR');

                end;

   end;

End.

É bem simples mas eu gosto,espero que gostem tb, t+