массив из 10 элементов заполняется целыми числами. Составьте программу, которая вычисляет среднее арифметическое элементов, заканчивающихся на цифру 7

ConstK = 10;VarA:array[1..K] of integer;S,i,n:integer;BeginS:=0;n:=0;Write('Исходный массив: ');For i:= 1 to K do    Begin    A[i]:=random(201)-100;    Write(A[i],' ');    if A[i] mod 10 = 7 then       Begin       S:=S+A[i];       n:=n+1       End;    End;WriteLn;if n = 0 then WriteLn('В массиве нет элементов, оканчивающихся на семь')else WriteLn('Среднее арифметическое элементов, оканчивающихся на семь: ',S/n);End.