Решите систему уравнений это нужно решить через PASCAL
if then else и т.д

см. фото

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