program program5;
var
   outFile:text;
   iCount, iHold:integer;

begin
     randomize;
     assign(outFile, 'OUT5.TXT');
     rewrite(outFile);
     for iCount := 1 to 5 do begin
         iHold := (random(4)+1);
         writeln(outFile, iHold);
     end;
     close(outFile);


end.