На метеорологической станции в компьютер введены сведения о среднесуточной температуре за март. Определите день, когда температура ближе всего подходила к среднемесячной- Pascal(Паскаль)

var
sut:array[1..31]of integer;
sred,min:real;
i,sum,den:integer;
begin
randomize;
writeln('temperatura po dnyam');
for i:=1 to 31 do
begin
sut[i]:=random(20)-15;
write(sut[i]:4);
end;
writeln;
for i:=1 to 31 do
sum:=sum+sut[i];
sred:=sum/31;
writeln('sred=',sred:4:2);
min:=abs(sred-sut[1]);
den:=1;
for i:=1 to 31 do
if abs(sred-sut[i])<min then
begin
min:=abs(sred-sut[i]);
den:=i;
end;
writeln('den=',den);
readln;
end.