Pascala mialem dawno ale chyba bedzie to wygladalo tak:)
USES CRT;
VAR
tab:array[1..5]of integer; (gdzie "tab" to nazwa naszej tablicy, 1..5 to indexy)
BEGIN
clrscr;
tab[1]:=2;
tab[2]:=3;
tab[3]:=7;
tab[4]:=4;
tab[5]:=11;
--------------
jak chcesz samemu podawac liczby w programie to nie definiujesz ich tylko wpisujesz
read(tab[1]);
read(tab[2]);
itd..
albo mozesz to zawrzec w petli
VAR
tab:array[1..5]of integer;
k:integer;
BEGIN
clrscr;
writeln('Wprowadz 5 liczb');
k:=0;
REPEAT
k:=k+1;
read(tab[k]);
UNTIL k=5;
co jest najlepszym rozwiazaniem
