begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
var a := 5;
var b := 6;
Print(Round(a / b, 1))