var v, seg_a, seg_b: inteiro inicio v <-0 seg_a <- 1 seg_b <- 1 Para v :=1 ate 8 faca Escreva(seg_a,",",seg_b,",") seg_a <- seg_a + seg_b seg_b <- seg_a + seg_b FimPara
