program tablica;
uses Crt;
var
    i   :integer;
    test: array [1..51] of integer;
begin
     ClrScr;
     for i:=1 to 5 do
      begin
        writeln('Podaj ',i,' elememt tablicy: ');
        readln(test[i]);
      end;
    writeln('Dowolny przycisk spowoduje wydrukowanie tablicy');
    writeln;
    repeat until Keypressed;
    writeln('Drukuje zawartosc tablicy');
    for i:=1 to 5 do
       writeln(test[i]);
    readln;
    repeat until keypressed;
end.