Написать программу, которая определяет, имеете ли Вы право голосовать: если Вам 18 и более - да, если это не так - такого права у Вас нет.

Program golosovanie;

Uses crt;

var a: integer;

Begin clrscr;

Write ('Введите Ваш возраст: ') ;

readln (a) ;

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

if (a0) then writeln ('У Вас нет права голосовать') ;

if a<=0 then writeln ('Возраст некорректен') ;

End.