9. Membuat kubus dari Angka Ganjil dan Genap

program fornum2;
{membuat gambar seperti: 1 1 2 3 4
                         1 4 1 2 3
                         2 1 9 1 2
                         3 2 1 16 1
                         4 3 2 1 25}
uses crt;
var


   i,j:integer;
begin
clrscr;
       for i:=1 to 5 do
           begin
           for j:=1 to 5 do
           if i>j then
              write(i-j,' ')
           else
               if i=j then
                  write(i*j,' ')
               else
                   write(j-i,' ');
           writeln;
           end;
readln;
end.