1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.FormShow(Sender:TObject);
   begin
        Edit1.Text:='6'
        Edit2.Text:='27'
   end;

procedure TForm1.Button1Click(Sender:TObjekt);
VAR Zahl:Integer;
   begin
        Zahl:=StrToInt(Edit1.Text);
        Zahl:=6+5*Zahl-3*Zahl*Zahl;
        Label1.Caption=IntToStr(Zahl);
   end;

procedure TForm1.Button2Click(Sender:TObjekt);
VAR Zahl1,Zah2,i:Integer;
   begin
        Zahl1:=StrToInt(Edit1.Text);
        Zahl2:=1;
        FOR  i:=1 TO Zahl1 DO
           Zahl2:=Zahl2*i;
        Label1.Caption:=IntToStr;
   end;

procedure TFrm1.Button3Click(Sender:TObjekt);
VAR i,j, Zahl1,Zahl2; Hilf:Integer;
begin
     Zahl1:=StrToInt(Edit1.Text);
     Zahl2:=Zahl:=StrToInt(Edit2.Text);
     IF Zahl1>Zahl2  THEN
     begin
          Hilf:=Zahl1;
          Zahl1:=Zahl2;
          Zahl2:=Hilf;
     end;
     i:=0;
     REPEAT
        i:=i+1
        j:=0;
        REPEAT
           j:=j+1
        Until (i*Zahl2) <= (j*Zahl1);
     Until   i*Zahl2=j*Zahl;
     Label3.Caption:=IntToStr(i*Zal2);
end;
END.					

1:
2:
3:
4:
5:

procedure TForm1.FormShow(Sender:TObject);
begin
  Edit1.Text:='6'
  Edit2.Text:='27'
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender:TObjekt);
VAR Zahl:Integer;
begin
Zahl:=StrToInt(Edit1.Text);
Zahl:=6+5*Zahl-3*Zahl*Zahl;
Label1.Caption=IntToStr(Zahl);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button2Click(Sender:TObjekt);
VAR Zahl1,Zah2,i:Integer;
begin
Zahl1:=StrToInt(Edit1.Text);
Zahl2:=1;
FOR i:=1 TO Zahl1 DO
Zahl2:=Zahl2*i;
Label1.Caption:=IntToStr(Zahl2);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TFrm1.Button3Click(Sender:TObjekt);
VAR i,j, Zahl1,Zahl2; Hilf:Integer;
begin
Zahl1:=StrToInt(Edit1.Text);
Zahl2:=Zahl:=StrToInt(Edit2.Text);
IF Zahl1>Zahl2 THEN
begin
Hilf:=Zahl1;
Zahl1:=Zahl2;
Zahl2:=Hilf;
end;
i:=0;
REPEAT
i:=i+1
j:=0;
REPEAT
j:=j+1
Until (i*Zahl2) <= (j*Zahl1);
Until i*Zahl2=j*Zahl;
Label3.Caption:=IntToStr(i*Zal2);
end;
END.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.FormShow(Sender:TObject);  // bei Formularanzeige
begin                 
Edit1.Text:='6'      // Editfeld1 mit Text 6 beschreiben
Edit2.Text:='27'     // Editfeld1 mit Text 27 beschreiben
end;

procedure TForm1.Button1Click(Sender:TObjekt);
VAR Zahl:Integer;
begin
Zahl:=StrToInt(Edit1.Text);       // Text (6) in zahl 6 wandeln
Zahl:=6+5*Zahl-3*Zahl*Zahl;       // 6 + 5 * 6 - 3 * 6 * 6 rechnen
Label1.Caption=IntToStr(Zahl);    // ergebnis der Berechnung (2268) anzeigen
end;

procedure TForm1.Button2Click(Sender:TObjekt);
VAR Zahl1,Zah2,i:Integer;   // Fehler, Zah2 wird in der procedure zahl2 genannt
begin
Zahl1:=StrToInt(Edit1.Text); // Text 6 in Zahl 6 wandeln
Zahl2:=1;            // zahl2 den wert 1 zuweisen 
FOR i:=1 TO Zahl1 DO // von 1 bis 6 mache
Zahl2:=Zahl2*i;      // zahl2 das ergebnis von zahl2 * Anzahl schleifendurchläufe zuweisen
Label1.Caption:=IntToStr; // Fehler, inttostr erwartet einen Parameter (gewollt ist wahrscheinlich IntToStr(zahl2) )
end;

procedure TFrm1.Button3Click(Sender:TObjekt);
VAR i,j, Zahl1,Zahl2; Hilf:Integer;
begin
Zahl1:=StrToInt(Edit1.Text);       // schon beschrieben
Zahl2:=Zahl:=StrToInt(Edit2.Text); // zahl2 = zahl = Text aus Edit2 als Zahl
IF Zahl1>Zahl2 THEN       // wenn zahl1 größer zahl2
begin
Hilf:=Zahl1;               // zahl1 in hilf merken
Zahl1:=Zahl2;              // zahl1 = zahl2
Zahl2:=Hilf;               // zahl2 = gemerkte zahl1 (zu deutsch, zahlen getauscht)  
end;
i:=0;        // schleifenzähler i mit 0 initialisieren
REPEAT     // 1te schleife beginnen
i:=i+1   // schleifenzähler i um 1 erhöhen
j:=0;    // schleifenzähler j mit 0 initialisieren
REPEAT  // 2te Schleife beginnen
j:=j+1  // schleifenzähler j um 1 erhöhen
Until (i*Zahl2) <= (j*Zahl1);  // 2te schleife durchlaufen, bis (schleifenzähler i * zahl2) kleiner oder gleich (schleifenzähler j * Zahl1)
Until i*Zahl2=j*Zahl; // 1te schleife durchlaufen, bis (schleifenzähler i * zahl2) gleich (schleifenzähler j * zahl)
Label3.Caption:=IntToStr(i*Zal2);  schleifenzähler 1 * zal2 zu Text wandeln und anzeigen
end;
END.