30 баллов!!!Напишите программу, дозволяющую вычислить значение функции (при вычислении

Нельзя вычислить корень из отрицательного числа, потому икс не может быть меньше. А так как корень находится в знаменателе, то он не может быть равен нулю, то есть икс обязан быть всегда больше.
Код PascalABC.NET 3.2

Var x:integer;
Begin
Write('x = ');
ReadLn(x);
if xgt;20 then Write('y = ',(sqr(x)+2) / (sqrt(x-20)))
else Write('При x = ',x,' решений нет');
End.

Для x  20 функция не определена.
Вот программка на языке Pascal

var 
  x, y: real;
begin
  write('x = ');
  readln(x);
  if x lt;= 20 then writeln('Function is not defined')
  else writeln('y = ', (sqr(x) + 2) / sqrt(x - 20))
end.