unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,

  Math;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  num: integer;

  n1, n2, n3, n4, n5, n6, sum1, sum2: integer;

begin

  num := StrToInt(Edit1.Text);

  n1 := num mod 10;

  n2 := (num div 10) mod 10;

  n3 := (num div 100) mod 10;

  n4 := (num div 1000) mod 10;

  n5 := (num div 10000) mod 10;

  n6 := num div 100000;

  sum1 := n1 + n2 + n3;

  sum2 := n4 + n5 + n6;

  if sum1 = sum2 then

    Label1.Caption := 'Счастливый'

  else

    Label1.Caption := 'Обычный';

end;

// extract digit from number

function digit(num, pos: integer): integer;

var

  x: integer;

begin

  x := round(Power(10, pos));

  Result := (num div x) mod 10;

end;

// here, for new experience, we will

// extract digits from integer instead of string

procedure TForm1.Button2Click(Sender: TObject);

var

  num: integer;

  i, sum1, sum2: integer;

begin

  num := StrToInt(Edit1.Text);

  sum1 := 0;

  sum2 := 0;

  for i := 0 to 2 do begin

    sum1 := sum1 + digit(num, i);

    sum2 := sum2 + digit(num, i+3);

  end;

  if sum1 = sum2 then

    Label1.Caption := 'Счастливый'

  else

    Label1.Caption := 'Обычный';

end;

end.