var i: integer; const ccc = 2+3+4; procedure p(jjj: integer; var kkk: integer); var i: integer; const ccc: integer = 2; type bcd = integer; begin var k: integer; // yield x111.x222+fff; // yield aaa[i]^.d+(bbb.c*nnn^)*fff(4); end; function f(var i,j,k: integer): integer; var i: integer; begin var k: integer; k^[2].t[3]^ := a + 1 * 2*(3+k^[2].t[3]^); end; type C = class ck: integer; procedure x1; var cxk: integer; begin var cik: integer; end; function f1(): integer; var cfk: integer; begin var cfik: integer; write(1+2+3+4,5*6); end; end; begin var ii: integer; end.