LP - Calculadora - Pascal

Program calculadora;
var  OP:INTEGER;
N1,N2,RESULT:REAL;

 Begin
writeLN('1 - SOMA');
writeLN('2 - SUBTRACAO');
writeLN('3 - MULTIPLICACAO');
writeLN('4 - DIVISAO');
write('DIGITE A OPCAO DESEJADA..: ');
READ(OP);

IF (OP=1) THEN
BEGIN
WRITE('DIGITE O PRIMEIRO NUMERO..: ');
READ(N1);
WRITE('DIGITE O SEGUNDO NUMERO...: ');
READ(N2);
RESULT:=N1+N2;
WRITE('O RESULTADO DA SOMA E ',RESULT:2:2);
END;

IF (OP=2) THEN
BEGIN
WRITE('DIGITE O PRIMEIRO NUMERO..: ');
READ(N1);
WRITE('DIGITE O SEGUNDO NUMERO...: ');
READ(N2);
RESULT:=N1-N2;
WRITE('O RESULTADO DA SUBTRACAO E ',RESULT:2:2);
END;

    IF (OP=3) THEN
BEGIN
WRITE('DIGITE O PRIMEIRO NUMERO..: ');
READ(N1);
WRITE('DIGITE O SEGUNDO NUMERO...: ');
READ(N2);
RESULT:=N1*N2;
WRITE('O RESULTADO DA MULTIPLICACAO E ',RESULT:2:2);
END;

IF (OP=4) THEN
BEGIN
WRITE('DIGITE O PRIMEIRO NUMERO..: ');
READ(N1);
WRITE('DIGITE O SEGUNDO NUMERO...: ');
READ(N2);
RESULT:=N1/N2;
WRITE('O RESULTADO DA DIVISAO E ',RESULT:2:2);
END;
 End.