Дано натуральное число. Определить есть ли в нем цифры 2 и 5. Pascal

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