Kalkulators

Form1.Label6.Caption:=IntToStr(c);
end;
procedure TForm1.Button4Click(Sender: TObject);
var a,b,c:integer;
begin
Form1.Button4.Caption:='rēķināt';
a:=StrToInt(Edit7.Text);
b:=StrToInt(Edit8.Text);
c:=a div b;
Form1.Label8.Caption:=IntToStr(c);
end;
end.
…