Program z1;
var x, y: integer;
begin
write('введи x '); readln (x);
if x>=0 then y:=x else y:=-x;
writeln ('y=', y);
end.
Program z1;
var x, y: integer;
begin
write('введи x '); readln (x);
if x>=0 then y:=x else y:=-x;
writeln ('y=', y);
end.