Вычислить среднюю (за неделю) температуру воздуха

const
  n = 7;
 
var
  a, sr: real;
  i: integer;
 
begin
  sr := 0;
  writeln('Введите температуру: ');
  for i := 1 to n do 
  begin
    readln(a);
    sr := sr + a;
  end;
  sr := sr / 7;
  write('Средняя (за неделю) температура воздуха: ', sr:8:2);
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
const
  n = 7;
 
var
  a, sr: real;
  i: integer;
 
begin
  sr := 0;
  for i := 1 to n do
  begin
    a:=  StrToInt(InputBox('Температура '+IntToStr(i)+'-й день:  ',  'Введите температуру: ',''));
    sr := sr + a;
  end;
  sr := sr / 7;
  ShowMessage('Средняя (за неделю) температура воздуха: '+FloatToStr(sr));
end;
 
end.