Question

Напишите, пожалуйста, ипрограмму по этой блок-схеме

Answer 1

Ответ:

Пишу в Pascal

Объяснение:

var

x,f:real;

begin

read(s);

if x>0 then

f:=x

else

f:=-x;

write(f);

end.