смотрите решение на листике
Ответ:
Nichego ne ponal pishi vhatnee
Пишу в Pascal
Объяснение:
var
x,f:real;
begin
read(s);
if x>0 then
f:=x
else
f:=-x;
write(f);
end.