Решение смотри во вложении.
Какое где фотография!?!?!!?
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
Цикл завершится тогда, когда значение переменной i станет равно 0
Ответ: i:=3;
1 - e
2 - b
3 - b
4 - d
5 - b