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

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.