Дан целочисленный массив из 31 элемента, элементы массива могут принимать значения

const
n = 31;

var
a: array[1..n] of integer;
s, k, i: longint;
f: real;

begin

cls;
k := 0;
randomize;
for i := 1 to n do
begin
a[i] := random (40) - 20;
writeln (a[i]);
end;
for i := 1 to n do
if a[i] gt;= 0 then begin
s := s + a[i];
k := k + 1;
end;
f := s / k;
writeln (Средняя температура посреди дней, когда была оттепель, одинакова , f, .);
end.