Uses System; var x: real; { процедура функция } function y( x: real): real; var a,b,c: real; begin a:=2.8; b:= -0.3; c:=4; if x<1.2 then Result:=a*Sqr(x)+b*x+c else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1) else Result:=a/x+Sqrt(x*x+1); end; { основная программа } begin write('Задайте значение x '); readln(x); writeln('Значение функции y = ',y(x)); end.