program nc; procedure Welcome; begin writeln('welcome') end; procedure GetCell(FX:char; FY:integer); procedure Inner; begin writeln('inner') end; begin Inner; writeln('getcell') end; begin Welcome; GetCell('A',1); writeln('done') end.
