numero positivo con variable raiz

PROGRAM sqrtnumeropositivo;

CONST
   Exponente= 0,5;

VAR
  a: real;
  raiz: real;

BEGIN
  write('Ingrese un n£mero: ');
  readln(a);

  raiz:= exp(Exponente*ln(a));

  writeln;
  writeln('Valor introducido: ',a);
  writeln('Raiz cuadrada calculada: ',raiz);
  writeln('Ra°z cuadrada de pascal: ',sqrt(a));

  readln;

END.