begin
var x,y:real;
write('Введите значение X: '); readln(x);
if x>1 then
y:=(x-25).Sqrt
else
if x<1 then
y:=x.Sqr+3*x;
write('y(',x,') = ',y);
end.
Примечание:
Паскаль не умеет брать корень из отрицательного числа (!), поэтому если вы введете х, значение которого окажется меньше 25, то на выходе получите y = NaN
