// PascalABC.NET 3.3, сборка 1599 от 17.12.2017// Внимание! Если программа не работает, обновите версию!function Sqrt(x:real):real;begin Assert(x>=0,'Невозможно извлечь квадратный корень из отрицательного числа'); Result:=System.Math.Sqrt(x)end;begin // иллюстрирующая программа var x:=ReadReal('x='); Writeln('Sqrt(x)=',Sqrt(x))end.
Примерыx= 26Sqrt(x)=5.09901951359278x= 0.00000Sqrt(x)=0x= -1.4Sqrt(x)=NaN - см. картинку во вложении, было принято решение "Пропустить".