var i: Int; begin i := 1; while i <= 6 do begin writei(i); i := i + 1 end; end.