{ Basic Pascal principles gone done the drain... !!!! }
var
 v: word;
 w: shortint;
 z: byte;
 y: integer;
Begin
 y:=64000;
 z:=32767;
 w:=64000;
 v:=-1;
end.