Trabalho Em Pascal

rogram algoritmo exer4

Begin

// Função :

// Autor :

// Data : 21/4/2014

// Seção de Declarações

var

media, idade, maior_idade, menor_idade, nome, sexo, real

inicio

Escreval("digite seu nome")

leia(nome)

I<0(:=0)

Escreval("digite a maior idade")

leia(idade)

enquanto(I<>)5(faca

I<I+1

total idade< total idade + pessoas

escreval (idade )

media<(tatal idade/5)

escreval(media)

se(idade>maior)entao idade < maior e nome maior <nome

se(idade<menor) entao idade < menor e nome menor < nome

fimse

fimenquanto

Escreval("a maior idade maior")

Escreval(" o nome da pessoa de maior idade)

e nome maior)

Escreval < a idade menor) e ",menor)

Escreval( o nome da pessoa de menor idade é ", nome menor)

Fimse

Fimse

Fimse

Fimalgoritmo