1:

Integer := Round(Extended);					

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

    zwischen := StrToInt(bst);//bst ist eine Zahl, aber als String
    zwischen3 := zwischen;//zwischen ist ein Integer, zwischen3 ein extended
    zwischen4 := e;// zwischen4 ist ein extended, e ist ein integer

    zwischen5 := power(zwischen3,zwischen4);//zwischen5 ist ein extended
    rest := Round(zwischen5) mod n;//n ist ein integer, rest auch					

1:

  rest := Round(zwischen5) mod n;					

1:
2:
3:
4:

ShortInt : -128 ... 127
SmallInt : -32768 ... 32767 [Standart Int]
LongInt : -2147483648 ... 2147483647
Int64 : -2^63 ... 2^63-1					

1:
2:
3:
4:
5:

j := 0;
repeat
  inc(j);
  rest:=zahl-(j*n);
until n*(j+1)>zahl;