Question

Пожалуйста срочно решите 6-7 буду благодарен!

Answer 1

Задание 6:   
1. B   
2. D   
3. A   
4. C

Задание 7:
    
program vibory;
var a:integer;

begin  
readln(a);  
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.