var i : integer; begin for i := 1 to 25 do begin write(i, ' '); if i mod 5 = 0 then writeln; end; end.