program p1;

var i:integer;

type ora=0..23;
    grade=-40..40;
    Temperatura=array [Ora] of Grade;

var Temp:Temperatura;

procedure MaxT(t: Temperatura);
var i:integer;
var max,min:integer;
begin
max:=t[1];
min:=t[1];
for i:=0 to 23 do if max<t[i] then max:=t[i];
for i:=0 to 23 do if min>t[i] then min:=t[i];
writeln('Minimul temperaturii este ',min);
writeln('Maximul temperaturii este ',max);
end;


procedure MaxTime(t: Temperatura);
var i:integer;
var maxT:integer;
begin
maxT:=0;
for i:=0 to 23 do if t[maxT]<t[i] then maxT:=i;
writeln('Temperatura maxima s-a inregistrat la ora ',maxT);
end;

procedure MinTime(t: Temperatura);
var i:integer;
var minT:integer;
var f:text;
begin
assign(f,'temp.out');
rewrite(f);
minT:=0;
for i:=0 to 23 do if t[minT]>t[i] then minT:=i;
writeln(f, 'Temperatura minima s-a inregistrat la ora ',minT);
close(f);
end;


begin
for i:=0 to 23 do begin
write('Introduceti Temperatura la ora ',i,':');
readln(Temp[i]);
end;

MaxT(Temp);
MaxTime(Temp);
MinTime(Temp);

end.