program zadanie13;
uses crt;
var i,x,z : byte;
    porovnavac: boolean;
        cislo: array[1..6] of integer;

begin
clrscr;
randomize;
porovnavac:=false;

for i:=1 to 5 do
begin




 for x:=1 to 6 do
 begin

  cislo[x]:=(random(34)+1);
  for z:=1 to (x-1) do
  begin


   repeat
    if cislo[x]=cislo[z] then
     begin
     porovnavac:=true;
     cislo[x]:=(random(34)+1);
     end
    ELSE
     begin
     porovnavac:=false;
     end;
   until porovnavac=false;


  end;


  writeln(cislo[x]);

 end;







writeln;
end;

readln;
end.