programtab1;vari:integer;a:array[1..10]ofstring;{tablica}beginwriteln('Podaj dziesięć tekstów w osobnych linijkach:');fori:=1to10doreadln(a[i]);{kolejne wczytywanie elementów tablicy}writeln;writeln('Wracają:');fori:=1to10dowriteln(a[i]);{i ich drukowanie}readln;end.
programtab2;constm=9;n=11;{Warto deklarować rozmiary tablic w stałych. Wtedy łatwiej zmieniać program.}vari,j:integer;mnozne:array[1..m]ofinteger;mnozniki:array[1..n]ofinteger;iloczyny:array[1..m,1..n]ofinteger;{tablica dwuwymiarowa}beginwriteln('Podaj ',m,' liczb (mnożne):');fori:=1tomdoread(mnozne[i]);readln;{chroni przed bałaganem}writeln('Teraz podaj ',n,' liczb (mnożniki):');fori:=1tondoread(mnozniki[i]);readln;{chroni przed bałaganem}{obliczanie}fori:=1tomdoforj:=1tondoiloczyny[i,j]:=mnozne[i]*mnozniki[j];{drukowanie wyniku}fori:=1tomdobeginforj:=1tondowrite(iloczyny[i,j]:4);writeln;end;readln;end.