ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung

[Connor Temple]

Delphi-Quellcode:

procedure TForm1.TeilButtonClick(Sender: TObject);
var a,b,c :Real ;
begin
a := StrToFloat (Zahl1.Text);
b := StrToFloat (Zahl2.Text);

c:= a/b;
Ausgabe.Caption := FloatToStr (c);
If b = 0 then Ausgabe.Caption :='Man kann nicht durch null teilen.'

end;

Das wäre der gesamte Divisionscode.