Verified answer

var

 i, j: Integer;

begin

 for i := 1 to 5 do begin

   for j := 1 to 5 do begin

     if (i + j) mod 2 = 0 then

       Write (Trunc (i * 2.3 + 0.5 * j - 1):3)

     else

       Write ('  0');

   end;

   WriteLn;

 end;

end.