дан массив A[8] заполненный целыми числами от 0 до 40 .Отыскать

Poskal - нет такового!!! Есть Pascal

Да нет , не за это , ну да ошибся в написании наименования программки.Но я задал вопрос для того . чтобы мне посодействовали , поэтому что я в этом не разбираюсь , а не отыскивать ошибку в написании программы

Пожалуй надобно посодействовать, хоть название языка программирования узнали.

const n = 8;
var a:array[1..n] of integer;
  s,i:integer;
begin
  //Наполнение массива значениями в диапазоне
  //от 0 до 40
  //и сразу обретаем нужную сумму
  s:=0;
  for i:=1 to n do begin
    a[i]:=random(41);
    if a[i]lt;=25 then s:=s+a[i];
    write(a[i]:3);
  end;
  writeln;
  writeln('Сумма элементов lt;=25 одинакова ', s);
 end.