program Extended_Integer_Types;

var Index : integer;
Big_int : longint;
Small_int : shortint;
Pos_int : word;

begin
Index := MaxInt;
Small_int := 127;
Pos_int := Index + 256 * Small_int;
Big_int := 1000 * MaxInt + 1234;

Writeln('Index = ',Index:12);
Writeln('Small_int = ',Small_int:12);
Writeln('Pos_int = ',Pos_int:12);
Writeln('Big_int = ',Big_int:12);
Writeln;

Big_int := 1000 * Index + 1234;
Writeln('Big_int = ',Big_int:12);
end.

Index = 32767
Small_Int = 127
Pos_Int = 65279
Big_Int = 32768234

Big_Int = 234