var x, y, z;

x := 1;
y := 2;
z := x - y - 3;
write (z)