Написать программу: найти количество элементов в массиве при любом n, в записи которых есть число три

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=5;

Var
 ar:array[1..n] of integer;
 ars:array[1..n] of string;
 i,k:integer;
begin
 for i:=1 to n do
  begin
   readln(ar[i]);
   str(ar[i],ars[i]);
   if pos('3',ars[i])<>0 then inc(k);
  end;
 write('Res=',k);
end.

Пример ввода:
135
246
357
468
579
Пример вывода:
Res=2

вид мультипликации, создаваемый при компьютера. В отличие от более общего понятия «графика CGI», относящегося как к неподвижным, так и к движущимся изображениям, компьютерная анимация подразумевает только движущиеся. На сегодня получила широкое применение как в области развлечений, так и в производственной, научной и деловой сферах. Являясь производной откомпьютерной графики, анимация наследует те же создания изображений:Векторная графикаРастровая графикаФрактальная графикаТрёхмерная графика (3D)

Когда вы запускаете Word, он автоматически предлагает вам чистый документ, в который довольно удобно вводить текст. Значит, логично будет предположить, что после запуска Word вы этим и займетесь. Если вы в Word редактируете определенный документ и вам понадобилось открыть новый (например, вы пишете письмо другу, но вдруг вспомнили, что необходимо ответить на запрос), то выполните следующие действия. Выберите команду Файл › Создать. На экране появится область задач Создание документа. На ней представлено несколько вариантов создания нового документа. Выберите опцию создания нового документа.Щелкните на ссылке Новый документ. Область задач будет скрыта, а на экране появится пустая страница нового документа.Если вы очень спешите, новый документ можно также создать, щелкнув на кнопке Создать . Таким образом, вам не потребуется искать необходимый вариант в области задач. Да и сама область задач при этом на экране не отображается. В главе 10 подробно рассказывается о том, как организовать в Word одновременную работу с несколькими документами.Еще один приступить к работе заключается в следующем: откройте документ на диске. (Дополнительную информацию по этому вопросу можно найти в главе 8.) Открытый документ появится в окне. Можно работать!