Я мог ошибиться в формуле. Она в цикле, перепроверь.
Sqr((4+A)*10)=4900 -выводится такой вот ответ
Var
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.