Дано натуральное число найти а)Есть ли в нем цифра 3 б)Есть

var

a, n: longint;

v1, v2, v3: byte;

s: byte;

begin

readln(a);

n := a;

v1 := 0;

v2 := 0;

v3 := 0;

while (n lt;gt; 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.