Calculadora pascal

Nome: Bruno Mauricio Oliveira da Silva Ra: 45943 program calculadora_Bruno; var x,y,fat,funcao,resultado,i : integer; n1, n2, n3 : real; begin textcolor(red) ;
WRITELN ('BEM VINDO A CALCULADORA PASCAL'); writeln; writeln ('>1< - Adicionar '); writeln ( '>2< - Subtrair ' ); writeln ( '>3< - Dividir >5< - Fatorial' ); writeln ( '>4< - Multiplicar >6< - Potenciação' );
WRITELN ('SELECIONE A FUNÇÃO!!'); readln(funcao); writeln;
IF(FUNCAO<= 5 ) THEN
WRITELN('ENTRE COM O PRIMEIRO NUMERO!!') ;
IF(FUNCAO<= 5 ) THEN
READLN (x) ;
IF(FUNCAO<= 4 ) THEN
WRITELN ('ENTRE COM O SEGUNDO NUMERO !!') ;
IF(FUNCAO<=4 ) THEN
READLN (y);
IF(FUNCAO = 6 ) THEN writeln ('Digite a base: ');
IF(FUNCAO = 6 ) THEN readln ( n1 );

IF(FUNCAO= 6 ) THEN writeln ('Digite a potência: ');
IF(FUNCAO = 6 ) THEN readln ( n2 ); if (funcao = 1) then resultado := x+y; if (funcao = 2) then resultado := x-y ; if (funcao = 3) then resultado := x DIV y; if (funcao = 4) then resultado := x*y; if (funcao = 5) then fat:=1; for i:=1 to x do fat:=fat*i; writeln ('Seu resultado é:');
IF(FUNCAO<= 4 ) THEN
WRITELN(RESULTADO);
IF(FUNCAO= 5 ) THEN writeln(fat); if (funcao = 6) then if n1 = 0 then begin if n2 <= 0 then write (n1:0:5, ' elevado a ', n2:0:5, ' resulta em uma operação ilegal!') else begin n3 := 0; write (n1:0:5, ' elevado a ', n2:0:5, ' = ', n3:0:5); end; end else if n1 > 0 then write (n1:0:5, ' elevado a ', n2:0:5, ' = ', exp(n2*ln(n1)):0:5)
//
else // Quando a base for negativa begin n1 := n1*-1; n3 := exp(n2*ln(n1)); if n2 < 0 then n3 := n3*-1; n1 := n1*-1; write (n1:0:5, ' elevado a ', n2:0:5, ' = ', n3:0:5) ;
end;