ВТОРОЙ РАЗ ПРОШУ, ПОМОГИТЕ! ПОЖАЛУЙСТА! ОЧЕНЬ НАДО!

Даже не знаю. Как-то так, наверное.const n=5; var a: array[1… n] of real; t: real; i,k: integer; begint: =0; k: =0; for i: =1 to n do read (a[i]); for i: =1 to n do t: =t+a[i]; t: =t/n; for i: =1 to n do if a[i]