Ini, Gan. Semoga tidak membantu i = 1; while (i <= 5 * 5) do begin Write(i); if (i mod 5 = 0) then begin WriteLn(''); end else begin Write(' '); end; i := i + 1; end; i = 1; repeat Write(i); if (i mod 5 = 0) then begin WriteLn(''); end else begin Write(' '); end; i := i + 1; until (i > 5 ...