Question

Христа ради помогите!

Answer 1

Program _1;
Var
x,fx:integer;
begin
writeln('Введите значение X');
readln(x);
if (x>0) then
begin
fx:=x;
end;
if (x=0) then
beginfx:=0;
end;
if (x<0) then
begin
fx:=-sqr(x);
end;
writeln('F(x): ',fx);
end.