unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
    ch,{число комп'ютера}
    ck,{число користувача}
    kol{кількість спроб}:
    integer; {тип даних - цілі числа}
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
    kol:=0;   randomize;
    ch:=random(100);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   ck:=strtoint(edit1.text);
    kol:=kol+1;
   if ch>ck then begin
   label2.Caption:='моє число більше';
     form1.Color:=claqua;
    end

   else
     if ch<ck then  begin
        label2.Caption:='моє число менше' ;
        form1.Color:=clyellow;
     end
     else begin
        form1.Color:=clolive;
        label2.Caption:='ви вгадали за '+inttostr(kol)+ ' спроб';
     end;

end;
end.