program TeenAge1;
{Party pouze pro teenagery}

var vek: integer;

begin
  writeln('Zadejte svj vk:');
  readln(vek);
  if (vek > 12) AND (vek < 20) then
  begin
    writeln('Jste teenager.');
    writeln('Rate vstoupit. Dobe se bavte.');
  end;
  writeln('Pro ukonen stisknte Enter.');
  readln();
end.




