Aula 08 Exemplo de lacos

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função :
// Autor :
// Data : 26/3/2009
// Seção de Declarações 
var
x,y:inteiro
inicio
leia (y)
para x de 1 ate y faca
	escreva (x)
	leia (y)
fimpara
x:= 1
enquanto x <= 10 faca
	escreva (x)
	x := x + 1
fimenquanto
x:= 1
repita
	escreva (x)
	x := x + 1
ate x > 10
fimalgoritmo