С 8 до 20 часов температура воздуха измерялась ежечасно, и результаты измерения заносились в компьютер. известно что в течении этого времени температура понижалась . напишите программу, определяющую , в котором часу была впервые отмечена отрицательная температура .

Program temp;
uses crt;
var
tem:array [8..20] of real;
min:real;
i:integer;
begin

for i:=8 to 20 do
begin
clrscr;
writeln(Vvedite temperaturu dlya ,i, chasa zamera);
read(tem[i]);
end;

for i:=8 to 20 do if tem[i]writeln(Vpervue otricatelnaya temperatura otmechena v ,min);
readln;

end.