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.