Ograniczanie liczby pętli
for i := 1 to n do
write(A[i]); for j := p to n do
write(B[j]);
for i := 1 to n do begin write (A[ij);
if i > p then write(B[i]) end;
Wvfcład 6 Programowanie koinputei