Calculator v.1 by moya vchitelka!

unit kalkuljator;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var a,b,vidp:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
vidp:=a+b;
edit3.text:=floattostr(vidp);
end;
procedure TForm1.Button2Click(Sender: TObject);
var a,b,vidp:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);

vidp:=a-b;
edit3.text:=floattostr(vidp);
end;
procedure TForm1.Button3Click(Sender: TObject);
var a,b,vidp:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
vidp:=a*b;
edit3.text:=floattostr(vidp);
end;
procedure TForm1.Button4Click(Sender: TObject);
var a,b,vidp:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
vidp:=a/b;
edit3.text:=floattostr(vidp);
end;
end.