Дан одномерный массив a целого типа, состоящий из n элементов. Найти в массиве третий, считая слева направо, элемент, имеющий заданное целое значение x, т.е. определить индекс этого элемента. Исходный масс в и результат вывести на печать. Предусмотрев вывод сообщения, когда подобного элемента в массиве нет.

1. program n_1;
2. uses printer;
3. var n, i, s: integer;
4. arr: array [1..10000] of integer;
5. begin
6. write ('Введите размер массива: ');
7. readln (n);
8. for i := 1 to n do begin
9. write ('arr[',i,'] := ');
10. readln (arr[i]);
11. end;
12. write ('Введите число для поиска: ');
13. readln (s);
14. i := 0;
15. repeat
16. inc(i);
17. until (arr[i] = s) and (i = n);
18. if (not (i = n)) or ((i = n) and (arr[i] = s)) then writeln(lst,s);
19. end.