Дано натуральное число. Определить есть ли в нем цифры 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