Восстановите фрагмент кода на месте многоточия в программе

• writeln\('Ответ:'\);
• for i:=1 to n do
• if a
  \[i\]
  =x then
  begin
• writeln\('a⟨1⟩ = ',x\);
• inc\(s\);
  end;
• if s=0 then
  writeln\('Не найдено\!'\);
• end.