Напечатать таблицу умножения в паскале для чисел 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.