Готово. Запрос на ввод, условие и вывод.
Алгоритм примерно такой (max - максимальный элемент):
1) max:=a[1];
2) пускаем цикл от двух до n (n - третий, например)
for i:=2 to n do
if max<a[i] then max:=a[i];
Получается, что если наш максимальный элемент, который изначально равен первому элементу массива, меньше какого-либо из последующих, то мы нашему max присваиваем этот элемент
===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.