1:
2:
3:

while ezaehler mod i and enenner mod i = 0
   do ezaehler:= ezaehler div i and enenner := enenner div i
     end;					

1:

 procedure deklaration(a,b,c,d:integer;out ezaehler,enenner:integer);					

1:

while (ezaehler mod i = 0) and (enenner mod i = 0) do					

1:
2:
3:
4:

begin
  ezaehler:= ezaehler div i;
  enenner := enenner div i;
end;					

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

for i := min downto 2 do
begin
  while (ezaehler mod i) and (enenner mod i = 0) do
    begin
       ezaehler := ezaehler div i;
       enenner := enenner div i;
    end;					

1:
2:

begin
  while (ezaehler mod i) and (enenner mod i = 0) do