Составьте алгоритм определяющий значение функции f(x), где f(x)=x+5, если x> 0 и f(x)=2x если x< =0

Var y, x: real;
begin
read(x);
if x>0 then
y:=x+5;
if x<=0 then
y:=2x;
write(y);
end.