interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
SYt, SYt1, SSYYtt1,i,j,t: integer;
A0,A1,v,SYZ,Y: real;
Zt: array [1..6] of real;
const
Yt: array [1..6] of integer = (16,21,24,23,26,28);
Yt1: array [1..6] of integer = (17,16,21,24,23,26);
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
SYt:=0;
begin
For i:=1 to 6 do
SYt:=SYt+Yt[i];
end;
SYt1:=0;
begin
For i:=1 to 6 do
SYt1:=SYt1+Yt1[i];
end;
SSYYtt1:=0;
begin
For i:=1 to 6 do
SSYYtt1:=SSYYtt1+Yt[i]*Yt1[i];
end;
j:=6;
A1:=(SSYYtt1*j-SYt*SYt1)/(SYt1*j-SYt1*SYt1);
A0:=(SYt-A1*SYt1)/j;
Label1.Caption:='A0 = '+FloatToStr(A0);
Label2.Caption:='A1 = '+FloatToStr(A1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
For i:=1 to 6 do
Zt[i]:=A0+A1*Yt1[i];
SYZ:=0;
begin
For i:=1 to 6 do
SYZ:=SYZ+(abs(Yt[i]-Zt[i]))/Yt[i];
end;
j:=6;
v:=(1/j)*SYZ*100;
Label3.Caption:='v= '+FloatToStr(v)+' %';
If v<15 then
begin
//For i:=1 to 6 do
Y:=A0+A1*Yt1[6];
Label4.Caption:='Y = '+FloatToStr(Y);
end
else
begin
ShowMessage('Уравнение непригодно для прогнозных целей');
exit
end;
end;

end.