program Podminky1;

var vek: integer;

begin
  writeln('Zadejte svj vk:');
  readln(vek);
  if vek >= 18 then
    writeln('Jste plnolet.');
  if vek < 18 then
    writeln('Nejste plnolet, nemete pt alkohol.');
  writeln('Pro ukonen stisknte Enter.');
  readln();
end.
