program Hello;
uses crt;
var
word1,word2:string;
count,countdracula,number:integer;
input,output:text;

begin
assign(output,'OUT5.txt');
rewrite(output);

randomize;
for count:= 1 to 5 do
begin
number:=(random(random(25)+1)+1);
{if number mod 2 = 1 then number:=number+1;
                        }
writeln(output,number);
end;



close(output);
end.