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

Ответ:
Пишу в Pascal
Объяснение:
var
x,f:real;
begin
read(s);
if x>0 then
f:=x
else
f:=-x;
write(f);
end.