Напишите программу для нахождения значения функции x=корень из y.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var y:=ReadReal('Введите неотрицательное число:');
  var x:=Sqrt(y);
  Writeln('Корень из этого числа: ',x)
end.

Program koren
var x,y: real
begin
writeln (‘укажите значение x’);
readln (x);
writeln (‘укажите значение y’);
readln (y);
x:=crt(y);
writeln(x);
end.