Дано натуральное число. узнать: если в этом числе цифра 8.

Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.