program ask1;
uses crt;
var pelates,i,s:integer;
    onoma:array[1..1000] of string;
    rouxa:array[1..1000] of integer;
    x:string;

begin
s:=0;
writeln ('diavase pelates');
readln (pelates);
for i:=1 to pelates do
begin
 writeln('dwse rouxa');
 readln(rouxa[i]);
end;
for i:=1 to pelates do
begin
 writeln('dwse onoma');
 readln(onoma[i]);
 end;
writeln('thes na sou emfanisw ta rouxa me tous pelates pou eixes simera;');
readln(x);
if x=('nai') then
begin
  for i:=1 to pelates do
  begin
    writeln('o pelatis ',onoma[i],' exei ',rouxa[i],' rouxa kai dikaioute gia dwro ',((rouxa[i] mod 6)), ' rouxa');
  end;
 end
  else
   begin
    writeln('ok');
   end;
   for i:=1 to pelates do
   begin
    if (rouxa[i]>=12) then
      writeln('o pelatios ',onoma[i],' exei dwroepitagi 10 euro');

   end;


end.