По блок-схеме разветвляющегося алгоритма написать программу ** языке Паскаль

Question

По блок-схеме разветвляющегося алгоритма написать программу на языке Паскаль

---

Answer 1

Program blok;
var x,y:real;
begin
readln(x)
;if x>0 then y:=2*x else y:=-2*x ;
writeln(y);
end.