е устройство не работает?
Ответ:
Пишу в Pascal
Объяснение:
var
x,f:real;
begin
read(s);
if x>0 then
f:=x
else
f:=-x;
write(f);
end.
Корня , побега , середины