Main Program Block -- pex16f99.pas
Begin READ ( pex16in, a[i] ); Write ( a[i]) End; {for}
While not eoln(pex16in) do
Begin Read( pex16in, b[i] ); write ( b[i] ); i := i + 1; End; {While}
concat ( na, i - 1, a, b, c, nc );
WRITE ( OUTPUT, c[i], ' ' );