Question

помогите пожалуйста!!!!! ​

Answer 1

Ответ:

program k;

var

y, x :integer;

begin

writeln ('введите х');

readln ('x');

if x>0 then

y:=2*x;

writeln ('y',=y');

else

y:=-2*x;

('y',=y');

end.