Ответ:

готово

Объяснение:

program primer;

var

 x, f: real;

begin

 Write('Введите значение x:');

 ReadLn(x);

 if x > 0 then

   f := x

 else

   f := - x;

 WriteLn('Значение f=', f);

end.