program tablice;

var
 Imiona : array [1..6] of string;
 I : integer;

begin
 Imiona[1] := 'Marek';
 Imiona[2] := 'Piotr';
 Imiona[3] := 'Karolina';
 Imiona[4] := 'Janusz';
 Imiona[5] := 'Klaudia';
 Imiona[6] := 'Monika';

  for I := low(Imiona) to high(Imiona) do
      begin
           writeln(Imiona[I]);
      end;
 readln;
end.