найти среднее арифметическое частей последовательности, превосходящих число 12. массив

Паскаль?

Да

В конце строчка end. красным выделена. Что делать?

Вы скопировали полностью?

Const N = 21;
Var
   A:array[1..N] of integer;
   i,k:integer;
   S:real;
Begin
randomize;
S:=0;
k:=0;
Write('Начальный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(80)-44;
    Write(A[i],' ');
    if A[i]lt;=12 then
       Begin
       S:=S+A[i];
       k:=k+1
       End;
    End;
WriteLn;
WriteLn('Sr = ',S/k)
End.