Чёт не получается(( Глянте, а то я не шарю

[Виталий Злобин]

Сам начал изучать язык, что-то лишнее наверное написал.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,m,n: integer;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
m := a*d
n := b*c
label5.Caption :=
FloatToStrF(m,ffFixed,4,2) + '/' + FloatToStrF(n,ffFixed,4,2)
end;
end.

[Виталий Злобин]

Ещё точки с запятой позабывал, но основная причина не этом как я полагаю

[puporev]

label5.Caption :=IntToStr(m) + '/' + IntToStr(n)
Это же целые числа, не вещественные.

[Виталий Злобин]

спс, опять выручил!