Дано натуральное число определить А) есть ли в нем цифра 3 Б) есть ли в нем цифры 2 и 5

Var

a, n: longint;

v1, v2, v3: byte;

s: byte;

begin

readln (a) ;

n : = a;

v1 : = 0;

v2 : = 0;

v3 : = 0;

while (n 0) do begin

s : = n mod 10;

n : = n div 10;

if (s = 3) then

v1 : = 1;

if (s = 2) then

v2 : = 1;

if (s = 5) then

v3 : = 1;

end;

if (v1 = 1) then

writeln ('В этом числе есть цифра 3')

else

writeln ('В этом числе нет цифры 3') ;

if (v2 = 1) and (v3 = 1) then

writeln ('В этом числе есть цифры 2 и 5')

else

writeln ('В этом числе нет одновременно цифр 2 и 5') ;

end.