[Страдалецъ]

С клавы вводить утомительно и неинтересно. Так интереснее:

Код:

program Exmple;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Const
  LowBodyTemperature = 36;
  HighBodyTemperature = 42;
  ProbeFrequency = 6;

Var
  BodyTemperature,Min,Max,Avg: Real;
  Probe: Integer;
begin
 Randomize;
 Min := HighBodyTemperature;
 Max := LowBodyTemperature;
 Avg := 0;
 WriteLn('Start experiment...');
 for Probe := 0 to ProbeFrequency - 1
 do begin
    BodyTemperature := LowBodyTemperature + Random(HighBodyTemperature*10-LowBodyTemperature*10)/10;
    WriteLn(Format('+%4.2fh Body temperature: %3.1f',[Probe * (24 / ProbeFrequency),BodyTemperature]));
    if Min > BodyTemperature then Min := BodyTemperature;
    if Max < BodyTemperature then Max := BodyTemperature;
    Avg := Avg + BodyTemperature;
    end;
 WriteLn('Min:',Min:3:1,' Max:',Max:3:1,' Avg:',Avg/ProbeFrequency:3:1);
 ReadLn;
end.