Дано четырехзначное целое число. определить имеется ли в записи числа цифра 3 паскаль

Var
  s:string; i,c:integer;
Begin
  Write('Введите четырёхзначное число ');
  Readln(s);
  if length(s) = 4 then Begin
  for i:= 1 to 4 do 
    if s[i]='3' then c:=1;
  if c=1 then write('Тройка есть') else write('Троек нет');
  End else write('Повторите ввод числа');
End.

Var
 n : Integer;
 f : Boolean;
Begin
  Write('Введите четырёхзначное число ');
  Readln(n);
  f:=False;
  While (n>0) do
  Begin
   f:=f or ((n mod 10)=3);
   n:=n div 10;
  end;
  if f then writeln('Тройка есть') else writeln('Троек нет');
End.

Техника безопасности при работе с компьютером очень важна, особенно если речь идет о школьных занятиях. Ведь современную образовательную систему трудно представить без компьютерных технологий. Кроме того, данная информация будет полезна и родителям. Техника безопасности при работе с компьютером Для начала стоит отметить важность защиты здоровья ребенка во время работы с электронной и вычислительной техникой. Кроме того, требования к образовательным учреждениям предусматривают и информационную безопасность ученика во время выхода в интернет.

#генерируем список из 2000 элементов
my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]

# начальное значение для временного минимума
min1_value = min2_value = 10000
min1_number = min2_number = 0

while my_list:
    x = my_list.pop()
    if x < min1_value:
        min2_value = min1_value
        min2_number = min1_number
        min1_value = x
        min1_number = 1
    elif x == min1_value:
        min1_number += 1
    elif x < min2_value:
        min2_value = x
        min2_number = 1
    elif x == min2_value:
        min2_number += 1
        
print(min2_number)