Таблица сложения и умножения натуральных чисел в шестнадцатеричной системе - C#

uses crt;
var a,b,b1,a1,a2,b2,i,n:integer;
    c:String;
Label 1;
Begin
ClrScr;
Write('Введите  n=');
read(n);
For i:=1 to 9 do
Begin
a:=n*i;
b:=b+i;
a2:=a mod 16;
a1:=a div 16;
b1:=b mod 16;
b2:=b div 16;
if a2<10 then
begin
if a1=0 {b1=0}then
        Writeln(n,'x',i,'=',a2)
        {Writeln(n,'+',i,'=',b2)}
        else
        Writeln(n,'x',i,'=',a1,a2);
        {Writeln(n,'+',i,'=',b1,b2)}
goto 1;
End;
case a2 of
10:c:='A';
11:c:='B';
12:c:='C';
13:c:='D';
14:c:='E';
15:c:='F';
End;
Writeln(n,'x',i,'=',a1,c);
{Writeln(n,'+',i,'=',b1,c);}
1: end;
Readkey;
end.