// tablica

program Untitled;

uses CRT, DOS;

var
tablica:array[1..5] of integer;

Begin
tablica[1]:= 10;
writeln(tablica[1]);

readln;
end.


// tablica z wprowadzaniem wartosci elementu i wyswietleniem
- narazie to nam nie jest do niczego potrzebne ;]

program Untitled;

uses CRT, DOS;

var
tablica:array[1..5] of string[20];
x:integer;

Begin
for x:=1 to 5 do;
writeln('podaj ',x,' element tablicy');
readln(tablica[x]);

for x:=1 to 5 do;
writeln;
writeln(tablica[x]);
readln;

end.