Case con Pascal

Programa con un Menú para Multiples operaciones (IV Corte aun falta para esto pero aquí esta una Muestra)


PROGRAM Csase;
Uses WinCRT;
VAR
OP,A,B,SUMA,RESTA,MULTI : Integer;
DIVI:Real;
BEGIN
WriteLn('*** Menu ***');
WriteLn('');
WriteLn('Presione 1 para Sumar Numeros ');
WriteLn('Presione 2 para Restar Numeros ');
WriteLn('Presione 3 para Multiplicar Numeros  ');
WriteLn('Presione 4 para Dividir Numeros  ');
WriteLn('Seleccione su Preferencia');
ReadLn(OP);
CASE OP OF
1 :
  BEGIN
       Clrscr;
       WriteLn('*** Suma de 2 Numeros ***');
       WriteLn('');
       WriteLn('Ingrese A');
       ReadLn(A);
       WriteLn('Ingrese B');
       ReadLn(B);
       SUMA:=A+B;
       WriteLn('El Resultado es ',SUMA);
  END;
2 :
  BEGIN
       Clrscr;
       WriteLn('*** Resta de 2 Numeros ***');
       WriteLn('');
       WriteLn('Ingrese A');
       ReadLn(A);
       WriteLn('Ingrese B');
       ReadLn(B);
       RESTA:=A-B;
       WriteLn('El Resultado es ',RESTA);
  END;
3 :
  BEGIN
       Clrscr;
       WriteLn('*** Multiplicacion de 2 Numeros ***');
       WriteLn('');
       WriteLn('Ingrese A');
       ReadLn(A);
       WriteLn('Ingrese B');
       ReadLn(B);
       MULTI:=A*B;
       WriteLn('El Resultado es ',MULTI);
  END;
4 :
  BEGIN
       Clrscr;
       WriteLn('*** Division de 2 Numeros ***');
       WriteLn('');
       WriteLn('Ingrese A');
       ReadLn(A);
       WriteLn('Ingrese B');
       ReadLn(B);
       DIVI:=A/B;
       WriteLn('El Resultado es ',DIVI:3:2);
  END;


ELSE WriteLn('No es una Opcion Valida');
END
END.