Main Program Block -- pex16f99.pas

BEGIN { pex16F99 }

RESET ( pex16in );

READLN ( pex16in, na );

FOR i := 1 TO na DO

Begin READ ( pex16in, a[i] ); Write ( a[i]) End; {for}

Writeln ( na );

Readln (pex16in);

i := 1;

While not eoln(pex16in) do

Begin Read( pex16in, b[i] ); write ( b[i] ); i := i + 1; End; {While}

writeln ( i - 1 );

readln (pex16in);

concat ( na, i - 1, a, b, c, nc );

FOR i := 1 TO nc Do

WRITE ( OUTPUT, c[i], ' ' );

WRITELN ( nc )

END. { pex16F99 }

Previous slide

Next slide

Back to first slide

View graphic version