Var
  n:longint;
  s:string;
  flag:boolean;
begin
  Write('Введите натуральное число: '); Read(n);
  Str(n,s); { перевели в формат символьной строки }
  flag:=False;
  if Pos('2',s)>0 then
  begin Writeln('В числе есть цифра 2'); flag:=True end;
  if Pos('5',s)>0 then
  begin Writeln('В числе есть цифра 5'); flag:=True end;
  if not flag then Writeln('В числе нет цифр 2 или 5')
end.

Тестовое решение:
Введите натуральное число: 64720051
В числе есть цифра 2
В числе есть цифра 5