Calculadora simples

{ paulogp }
Program Peda_02; {Executa uma operação matemática simples.}

Uses
    WinCrt;

Const
    Sinal = ['!','+','-','*',':','/','%'];

Var
    Oper, Tecla: Char;
    Entrada_A, Entrada_B, J, Fact: LongInt;
    Resultado: Real;

Begin
    Repeat
        ClrScr;
        WriteLn('Calculadora simples!');
        WriteLn('~~~~~~~~~~~~~~~~~~~~');
        WriteLn('Programado por: Paulo G.P.');
        WriteLn;
        WriteLn;
        Write('Introduza o primeiro valor: ');
        ReadLn(Entrada_A);
        WriteLn;
        WriteLn('Tabela de operacoes:');
        WriteLn('-----------------------------');
        WriteLn('"!" - Factorial');
        WriteLn('"+" - Adicao');
        WriteLn('"-" - Subtraccao');
        WriteLn('"*" - Multiplicacao');
        WriteLn('":" - Divisao inteira');
        WriteLn('"/" - Divisao real');
        WriteLn('"%" - Resto da divisão inteira');
        WriteLn('-----------------------------');
        WriteLn;
        Write('Introduza a operacao pretendida: ');
        Repeat
            Oper:=ReadKey;
        Until Oper in Sinal;
        Write(Oper);
        WriteLn;
        If Oper='!' then
        Begin
            If Entrada_A<0 then WriteLn('Operacao impossivel em R!') else
            Begin
                Fact:=1;
                For J:=Entrada_A downto 1 do Fact:=J*Fact;
                WriteLn;
                WriteLn('Resultado: ',Fact);
            End;
        End else
        Begin
            WriteLn;
            Write('Introduza o segundo valor: ');
            ReadLn(Entrada_B);
            WriteLn;
            If Entrada_B=0 then
            Begin
                If (Oper=':') or (Oper='/') or (Oper='%') then
                WriteLn('Operacao impossivel em IR!');
            End else
            Begin
                Case Oper of
                    '+': Resultado:=Entrada_A+Entrada_B;
                    '-': Resultado:=Entrada_A-Entrada_B;
                    '*': Resultado:=Entrada_A*Entrada_B;
                    '/': Resultado:=Entrada_A/Entrada_B;
                    ':': Resultado:=Entrada_A div Entrada_B;
                    '%': Resultado:=Entrada_A mod Entrada_B;
                End;
                WriteLn('Resultado de ',Entrada_A,' ',Oper,' ',Entrada_B,' = ',Resultado:0);
            End;
        End;
        WriteLn;
        WriteLn;
        Write('Repetir o programa (s/n)? ');
        Tecla:=ReadKey;
    Until (Tecla='N') or (Tecla='n');
    DoneWinCrt;
End.