Скиньте пожалуйста таблицу умножения в семеричной системе счисления

Как-то так:

1 * 1 = 1
1 * 2 = 2
1 * 3 = 3
1 * 4 = 4
1 * 5 = 5
1 * 6 = 6

2 * 1 = 2
2 * 2 = 4
2 * 3 = 6
2 * 4 = 11
2 * 5 = 13
2 * 6 = 15

3 * 1 = 3
3 * 2 = 6
3 * 3 = 12
3 * 4 = 15
3 * 5 = 21
3 * 6 = 24

4 * 1 = 4
4 * 2 = 11
4 * 3 = 15
4 * 4 = 22
4 * 5 = 26
4 * 6 = 33

5 * 1 = 5
5 * 2 = 13
5 * 3 = 21
5 * 4 = 26
5 * 5 = 34
5 * 6 = 42

6 * 1 = 6
6 * 2 = 15
6 * 3 = 24
6 * 4 = 33
6 * 5 = 42
6 * 6 = 51

А это - программа, которая насчитала:

PROGRAM test;

FUNCTION GetString(N:Integer; b:Integer):String;
VAR digit, rest :Integer;
result, digits:String;
BEGIN
result := '';
rest := N;
while rest > 0
do begin
   digit := rest mod b;
   Str(digit, digits);
   result := digits + result;
   rest := rest div b;
   end;
GetString := result;
END;

VAR
i, j :integer;
f :Text;

BEGIN

Assign(f,'out.txt');
Rewrite(f);

FOR i := 1 TO 6
DO BEGIN
   WriteLn(f);
   FOR j := 1 TO 6
   DO WriteLn(f, i,' * ', j, ' = ', GetString(i*j,7));
   END;

Close(f);

ReadLn;

END.

Не скину. Не имею таковой. Подскажу:
1х1=1
1х2=2
1х3=3
....
1х6=6

2х1=2
2х2=4
2х3=6
2х4=11
2х5=13

2х6=

3 * 3 = 12
3 * 4 = 15
3 * 5 = 21
3 * 6 = 24
3 * 7 = 30

Дальше сама дотумкай.