Cara Membuat Perkalian Genap Ganjil Menggunakan Looping For dengan Turbo Pascal

uses crt;
var
   i,b,j : byte;
   ket   :string;

Begin
     Clrscr;
            writeln('perkalian');
            writeln('======================');
            {memberi nilai index akhir}
            write('input perkalian berapa ='); readln(b);
            {perintah looping for}
                      for i:= 1 to b do
                      begin
                      {proses perkalian}
                          j:=i*b;
                      {proses mencari keterangan}
                      if j mod 2 = 0 then
                      ket:='bilangan genap'
                      else
                          ket:='bilangan ganjil';
                      {menampilkan hasil}
                      writeln(i,'x',b,'=',j,'-',ket);
                      End;
            readln;
     End.

jadi nanti outputnya(hasil) seperti ini: