Дано натуральное число определить а)Есть ли в нем цифра 3 б)Есть ли в нем цифры 2 и...

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.