var
a : integer;
begin
writeln ('Введите ваш возраст');
readln (a);
if a >= 18 then writeln ('Вы принимаете участие в выборах ')
else writeln ('Вы не достигли возраста для голосования ');
end.
var
a : integer;
begin
writeln ('Введите ваш возраст');
readln (a);
if a >= 18 then writeln ('Вы принимаете участие в выборах ')
else writeln ('Вы не достигли возраста для голосования ');
end.