Program Bullshit;

Var
input,Outputfile:Text;
count:integer;
Begin
Assign(input,'DATA5.txt');
reset(input);
Assign(Outputfile,'Out5.txt');
Rewrite(Outputfile);

For count:= 1 to 5 do
writeln(outputfile,'4');
Close(Outputfile);
End.