Raiz Cuadrada y Exponencial 2

Realizar un Programa que evalue las siguientes formulas y me de resultado....!!!


a.- √A
b.-  A²

PROGRAM RAIZCUADRADO;

        USES WINCRT;

        VAR

        A,op:INTEGER;

        raiz,expo:REAL;

BEGIN

ClrScr;

       WRITELN ('*** Menu ***');

       WRITELN ('');

       WRITELN ('1.- Raiz Cuadrada de A');

       WRITELN ('2.- A al Cuadrado');

       READLN(op);

       if op=1 then

       BEGIN

            WRITELN ('Ingrese A');

            READLN(A);

            raiz:= sqrt(A);

            WRITELN ('La Raiz es: ',raiz:3:2);

       END

       else

       if op=2 then

       BEGIN

            WRITELN ('Ingrese A');

            READLN(A);

            expo:= sqr(A);

            {Otra forma seria expo:=A*A;}

            WRITELN ('El Exponencial es: ',expo:3:2);

       END

END.