Напечатать таблицу умножения в паскале для чисел 15,16,17 и расположиить в несколько столбцов.

Program Tablica; Var     n: Integer;     i: Integer; Begin          n := 15;          for i := 1 to 17 do     begin         Write(n, '*', i, '=', n*i, '  ');         Write(n+1, '*', i, '=', (n+1)*i, '  ');         WriteLn(n+2, '*', i, '=', (n+2)*i);     end;              ReadLn; End.