program TeenAgeParty2;

var vek: integer;
    odpoved: String;

begin
  writeln('Zadejte svj vk:');
  readln(vek);
  if (vek > 12) and (vek < 20) then
    writeln('Mete vstoupit. Dobe se bavte.')
  else
  begin
    writeln('Kontroln otzka:');
    writeln('Jedna kvtina bez listu,');
    writeln('druha bez nohy, tet bez prstu,');
    writeln('kolik to dl celkem dn.');
    readln(odpoved);
    if odpoved = ('Rovn dva dny') then
      writeln('Mete vstoupit. Dobe se bavte.')
    else
      writeln('Nejste oprvnn vstoupit na tuto party.');
  end;
  writeln('Pro ukonen stisknte Enter.');
  readln();
end.
