freepascal.compiler/tests/tf/tf000002.pp

var
  i,j : longint;
begin
  i:=longint;
  j:=i*word+j*shortint;
  j:= 15 +5*i +(i*i)+sqr(word);
end.