Написать программу для решения уравнения y=|x|

program n1;

var x: integer;

begin

write ('x = ');

readln (x);

writeln ('y = ',abs(x))

end.