Если в программе задан восьмой вариант
vara:char;i:integer;beginread(a);
if (a='Восемь'') or (ord(a)-48=8) thenwriteln('Совпал')elsewriteln('Не совпал');end.