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

vara, n: longint;v1, v2, v3: byte;s: byte;beginreadln(a);n := a;v1 := 0;v2 := 0;v3 := 0;while (n <> 0) do begins := n mod 10;n := n div 10;if (s = 3) thenv1 := 1;if (s = 2) thenv2 := 1;if (s = 5) thenv3 := 1;end;if (v1 = 1) thenwriteln('В этом числе есть цифра 3')elsewriteln('В этом числе нет цифры 3');if (v2 = 1) and (v3 = 1) thenwriteln('В этом числе есть цифры 2 и 5')elsewriteln('В этом числе нет одновременно цифр 2 и 5');end.