Дан одномерный массив целых чисел.найти и вывести на экран среднее арифметическое элементов этого массива равных своим индексам

не сказала бы, что это решение сильно отличается от уже имеющегося, но 

а) оно совсем немножко удобнее (хотя бы из-за clrscr и вывода ответа с определённым количеством знаков после запятой). а ещё предусмотрена возможность отсутствия таковых чисел.

б)ну не могла я пропустить по паскалю)

program n1; uses crt; const n=10; var a: array[1..n] of integer; i,s,k: integer; beginclrscr; randomize; for i: =1 to n do begin a[i]: =random(10); write(a[i]: 3); if a[i]=i then begin s: =s+a[i]; writeln('s=',s); k: =k+1; end; end; writeln; if k=0 then writeln('таких элементов нет') elsewriteln('среднее арифметическое элементов массива, равных своим индексам, равно ',s/k: 4: 4); readlnend.

var a: array[1..10] of integer; i,k: integer; s: real; begin randomize; writeln('массив: '); for i: =1 to 10 do begin a[i]: =random(11); write(a[i],' '); if a[i] = i then begin s: =s+a[i]; inc(k) end end; writeln; write('s = ',s/k)end.