Programación en Pascal/Pascal clásico

program raiz(input, output);
(*
  Obtener la raiz cuadrada de un numero real x.
  Se supone que x no es negativo.
*)

var x, y: real;

begin
  writeln('** Calcular la raiz cuadrada de x **');
  writeln;
  write('Entrar x (> 0): '); readln(x);
  y := sqrt(x);
  writeln;
  writeln('La raiz cuadrada de ', x, ' es ', y);
  writeln; writeln('** Fin **')
end.