НАЙДИТЕ ОШИБКУ В ПРОГРАММЕ

[svetah]

program co;
USES CRT;
const n=22;
var
c:array[1..22] of integer;
k,i: integer;
s,sa:real;
begin
for i:= 1 to n do readln (C[I]);
s:=0; k:=0;
for i:=1 to n do
if c[i]>5 then s:=s+c[i];
k:= k+1;
if k>0 then
sa:=s/k;
writeln(sa);
readln;
end.

А ЗАДАЧКА ТАКАЯ:НАЙТИ ОТНОШЕНИЕ ВСЕХ ЭЛЕМЕНТОВ ОТЛИЧНЫХ ОТ 5 К ИХ КОЛ-ВУ (ИМЯ МАССИВА C0 И РАЗМЕРНОСТЬ 22)

[_Engine_]

if c[i] <> 5  then
begin
  s := s + c[i];
  k := k + 1;
end;

[alex_fcsm]

USES CRT;
const n=22;
var c:array[1..n] of integer;
     k,i: integer;
     s:real;
begin
for i:= 1 to n do readln (C[I]);
s:=0; k:=0;
for i:=1 to n do
if c[i]<>5 then begin 
                     s:=s+c[i];
                     k:= k+1;
                    end;
if k>0 then
s:=s/k;
writeln(s:5:3);
readln;
end.

[svetah]

А ВСЕ ОСТАЛЬНОЕ ЗНАЧИТ ПРАВИЛЬНО?

[alex_fcsm]

Запустите и посчитайте

[svetah]

writeln(s:5:3) А МОЖЕТЕ ОБЪЯСНИТЬ ЧТО ЭТО?

[alex_fcsm]

а попробуйте writeln(s) и сразу поймите

[LyaLyaLya]

печать суммы в вормате 5 общих символов и 3 после запятой

[svetah]

А ПОНЯТНО!
СТЕПЕНИ НЕТ