Program wehr;

Var
   Count,count2:Integer;
   tofactor:Integer;
   Factors:Integer;
   fin,fout:text;

Function Prime(Check:Integer):Boolean;

Var
   Counter : Integer;
   Flag : Boolean;
Begin
Flag := true;
For Counter := 2 to Round(sqrt(check)) do
    If Check mod Counter = 0 then
       Flag := False;

If Check < 2 then
   Flag := False;

Prime := Flag;
End;

Begin
Assign(fin,'DATA2.txt');
Reset(fin);

Assign(fout,'OUT2.txt');

for count := 1 to 5 do
    Writeln(fout,'2');
Close(Fout);
end.