mplementation
var KatheteA, KatheteB, ZufallszahlA, ZufallszahlB, Anzahl :integer;
HypotenuseC, HypotenusenabschnittP, HypotenusenabschnittQ, Hc, Umfang,
Flaeche, EingabeC, EingabeP, EingabeQ, EingabeHc, EingabeU, EingabeA :real;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Label2Click(Sender ...