Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с клавиатуры. Найти номера всех элементов больше 5 (вывести их на экран), если таких нет,то сообщить об этом.

const  N = 5;var  a: array [1..N] of integer;  flag: boolean;begin  flag := False;  for var i := 1 to N do   begin    readln(a[i]);    if a[i] > 5 then begin      writeln(a[i], i:3);      flag := True;    end;  end;  if not flag then writeln('Элементов больше 5 нет');end.