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

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.