ЯсноПонятно24

program LowestTemperature;

var N, i, temperature, minTemperature: integer; belowMinus15: boolean;

begin belowMinus15 := false;

write('Enter the number of days: '); readln(N);

write('Enter the temperature for each day: '); readln(temperature); minTemperature := temperature;

for i := 2 to N do begin readln(temperature);

if temperature < minTemperature then
  minTemperature := temperature;

if temperature < -15 then
  belowMinus15 := true;

end;

writeln('The lowest temperature is: ', minTemperature);

if belowMinus15 then writeln('YES') else writeln('NO'); end.