uses crt;
var x:integer;
begin
writeln('введите возраст: ');readln(x);
clrscr;
if x>=18 then writeln('имеет право голосовать');
if 18-x<5 then writeln('осталось подождать: ',18-x,' года') else writeln('осталось подождать: ',18-x,' лет')
end.