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

Program golosovanie;
Uses crt;

var  a: integer;

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

if a>=18 then writeln('Вы имеете право голосовать');
if (a<18) and (a>0) then writeln('У Вас нет права голосовать');
if a<=0 then writeln('Возраст некорректен');
End.