///Pascal ABC.NET.
Program zadacha_alg;
Var x, y, z: integer;
begin
x:= 5;
y:= -6;
If x>y then z:= x+y else z:= y-x;
WriteLn ('z=',z);
end.
///Pascal ABC.NET.
Program zadacha_alg;
Var x, y, z: integer;
begin
x:= 5;
y:= -6;
If x>y then z:= x+y else z:= y-x;
WriteLn ('z=',z);
end.