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