program Negative;
var
x, y, z: integer;
begin
x := 5;
y := -1;
z := x + y;
writeln('value is: ', z);
end.