Lista George alg.7

algoritmo "maior_menor"

var

x,a,b,i :inteiro

inicio

leia(x)

a<-x

b<-x

para i de 2 ate 5 passo 1 faca

   leia(x)

   se x>a entao

      a<-x

   senao

      se xentao

         b<-x

      fimse

   fimse

fimpara

escreva(a,b)

fimalgoritmo