program Podminky2;

var vek: integer;

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