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

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