Программка просит пользователя ввести с клавиатуры целое число от 2 до

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Введите число от 2 до 20:');
  if n.Between(2,20) then begin
    Write(4*' ');
    for var i:=1 to n do Write(i:4);
    Writeln(NewLine,4*' ',4*n*'*');
    for var i:=1 to n do begin
      Write(i:3,'*');
      for var j:=1 to n do Write(i*j:4);
      Writeln
      end
    end
  else Writeln('Вы нарушили условие')
end.

//PascalABC.NET версия 3.3.5

const
  width = 4;

begin
  var num := readinteger('Введите число от 2 до 20:');
  while(not (num in [2..20])) do
    num := readinteger('Введите число поновой:');
  var count := num gt;= 10 ? 3 : 2;
  for var i := 1 to num + 2 do
  begin
    if((i gt; 2) and (count = 2)) then write((i - 2), '*')
    else if((i gt; 2) and (count = 3)) then write((i - 2):2, '*');
    if((i = 1) or (i = 2)) then write(' ' * count)
    else write(' ');
    for var j := 1 to num do
    begin
      if(i = 1) then write(j:width)
      else if(i = 2) then write('*' * width)
      else if(i lt; 12) then write(((i - 2) * j):(width - 1), ' ')
      else write(((i - 2) * j):(width - 1), ' ');
    end;
    writeln;
  end;
end.