Program FindAverageTemperature;

var
n, t, sum, count: integer;
average: real;

begin
sum := 0;
count := 0;

writeln('Введите количество дней:');
readln(n);

for var i := 1 to n do
begin
writeln('Введите температуру в ', i, '-й день:');
readln(t);

if t >= 5 then
begin
sum := sum + t;
count := count + 1;
end;

end;

if count > 0 then
begin
average := sum / count;
writeln('Средняя температура в дни, когда температура выше или равна 5 градусам:', average:0:2);
writeln('ДА');
end
else
writeln('НЕТ');

end.