while(<cond>){ <com1> : : <comn> }
x <- 1 while(x < 4){ print(x) x <- x + 1 } #O programa vai imprimir 1, 2 e 3
for(i in(inicio:fim)){ <com1> : : <comn> }
for(i in(1:4)){ print(i) }
soma <- 0 for(i in(1:4)){ valor <-as.numeric(readline("digite 1 número: ")) soma <- soma + valor } media <- soma / 4 print(paste0("A média=", media))