Написать по схеме программу

Список данных - var (real-вещественный)

Трапеция с переменными -  это либо ввод данных либо вывод (в начале ввод а потом вывод)

Ромб с условием -  If "условие"

Стрелки да/нет - then/else

Прямоугольник - операции над числами (х:=)

Начало/конец - begin/end

program Z1;

var x, f:real;

begin

readln (x);

If x>0 then

f:=x

else

f:=-x;

writeln (f);

end.