Помогите программу в паскале составить

Программа выводит на экран  таблицу пифагора и вычисляет количество нечетных чисел

var i, k, j:byte;    begin   k:=0;   for i:=1 to 20 do      begin      for j:=1 to 20 do      begin      write(i*j:4);      if i*j mod 2<>0 then inc(k);      end;      writeln;      end;   writeln('Количество нечетных чисел=', k);  end.