Восстановите фрагмент кода на месте многоточия в программе
writeln('Ответ:');
for i:=1 to n do
if a[i]=x then
begin
writeln('a[',i,'] = ',x);
inc(s);
end;
if s=0 then
writeln('Не найдено!');
end.