Számok eltárolása tömbbe, majd az elemek kiíratása (Tomb.pas) program Tomb; uses crt; var i,n:integer; a:array [1..30] of integer; Egész típusú, a nevű, 30 elemű tömb deklarálása. BEGIN write('n:='); readln(n); Bekérjük a tömbelemek számát (természetesen ez csak kevesebb lehet, mint 30). i:=1; while(i<=n) do begin write('a[',i,']:='); Kiíráskor vesszővel kapcsolhatjuk össze a kiírandó szöveget és változókat. Szöveg kiírásakor ügyeljünk az aposztrófok meglétére. readln(a[i]); Beolvassuk a billentyűzetről az a nevű tömb i-edik elemét. i:=i+1; end; i:=1; 1-re álltjuk a használt ciklusváltozó értékét. while(i<=n) do begin A ciklus segítségével soronként kiírjuk a képernyőre az a tömb elemeit. writeln(a[i]); i:=i+1; end; END.