Calculadora de decimo terceiro salário

 unit Unit1;

    {$mode objfpc}{$H+}


    interface

    uses


     Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;


    type



     { TForm1 }


     TForm1 = class(TForm)


     Calcular: TButton;


     Apagar: TButton;


     Edit1: TEdit;


     Edit2: TEdit;


     Edit3: TEdit;


     Sair: TButton;


     procedure ApagarClick(Sender: TObject);


     procedure CalcularClick(Sender: TObject);


     procedure SairClick(Sender: TObject);


     private


     { private declarations }


     public


     { public declarations }


     end;


    var


     Form1: TForm1;





    implementation





    { TForm1 }





    procedure TForm1.CalcularClick(Sender: TObject);


    var n1,n2,resultado:real;//n1(numero1),n2(numero2),resultado(resultado do calculo)


    begin


    n1:=StrToFloat(Edit1.text);


    n2:=StrToFloat(Edit2.text);


    resultado:=n1*n2/12;


    Edit3.text:=FloatToStr(resultado);





    end;





    procedure TForm1.SairClick(Sender: TObject);


    begin


     Form1.Close;


    end;





    procedure TForm1.ApagarClick(Sender: TObject);


    begin


     Edit1.text:='';


     Edit2.text:='';


     Edit3.Text:='';


    end;





    initialization


     {$I unit1.lrs}





    end.