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