program laba1_1;
uses
  System.SysUtils;
var
   isCorrect: Boolean;
   age,yearsBeforeVote:integer;
begin
   isCorrect := false;
   age := 0;
   repeat
      writeln('Введите ваш возраст');
      try
         readln(age);
         isCorrect := true;
         if (age <= 0 ) or (age > 100) then
         begin
            writeln('Введены некоректные данные! Повторите!');
            isCorrect:=false;
         end;
         except
            writeln('Введены некоректные  данные! Повторите!');
      end;
   until isCorrect;
    if (age >= 18) then
       writeln('Вы имеете право голосовать ')
    else
    begin
       yearsBeforeVote:= 18 - age;
       writeln( 'Количество лет через которое сможете проголосовать - ' , yearsBeforeVote, ' ');
    end;
    readln;
end.