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:

var
  Form1: TForm1;
  divis, divid, X, zahl : Integer ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
divid := StrToInt (edit1.text) ;
divis := StrToInt (edit2.text) ;
zahl := divid ;
X := 0 ;
while zahl < divid Do
begin
zahl := zahl - divis ;
X := X + 1 ;
end;

label1.caption := IntToStr(divid) + ' = ' + IntToStr(X) + ' * ' + IntToStr(divis) + ' + ' + IntToStr(Zahl) ;


end;
end.					

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

zahl := divid ;
X := 0 ;
while zahl < divid Do   //Zahl ist niemals kleiner als divid, da zwei Zeilen darüber gleichgesetzt
begin
zahl := zahl - divis ;
X := X + 1 ;
end;					

1:
2:
3:
4:
5:

   while divis < zahl Do
   begin
     zahl := zahl - divis ;
     X := X + 1 ;
   end;					

1:

   ganzteil:=divid div divis;					

1:

   rest:=divid mod divis;					

1:

Ausgabe = Zaehler div Nenner;