Написать по этому заданию программу в паскале .заранее за

var

x, f : real;

begin

writeln('Введите значение переменной x: ');

readln(x);

if x <= 0 then

f := - x

else if (x > 0) and (x < 2) then

f := x * x

else if x >= 2 then

f := 4;

writeln(f:2:2);

end.

Відповідь:

Пояснення:

         Program Probota;

         Var f, x: real;

 begin

              writeln (‘Введіть значення  х: ‘);

              write (‘х=’);

              readln (x);

              if x<=0 then f:=-x

              else  if (Z >0)  and  (Z<2)  then  f:=x*x

                          else  f:=4;

             writeln (‘Функція дорівнює:’);  

             writeln (’  f=’,f:5:2);

end.