Напишите соответствующую программу.

Program FindElement; var a: array[1..100] of integer; i, n, иск: integer; found: boolean; begin found := false; readln(n); for i := 1 to n do read(a[i]); readln(иск); for i := 1 to n do if a[i] = иск then begin found := true; writeln('Элемент найден: ', a[i]); break; end; if not found then writeln('Элемент не найден.'); end.