AMBIENTE ASA
decl
aluno
cadeia
decl
n1
integer
decl
n2
integer
decl
media
integer
decl
q
cadeia
decl
total
integer
decl
ap
integer
decl
rp
integer
-------------------------------------
atrib
q
'n'
atrib
total
0
atrib
ap
0
atrib
rp
0
impr
'EEB Presidente Médice !!!'
1
impr
'_________________'
1
enq
q <> 's'
atrib
total
total+1
leit
Aluno:
aluno
leit
Nota 1:
n1
leit
Nota 2:
n2
atrib
media
(n1+n2)/2
se
media >=7
atrib
ap
ap+1
end
senao
atrib
rp
rp+1
end
impr
'Aluno: '
0
impr
aluno
1
impr
'>  '
0
impr
'Nota 1: '
0
impr
n1
1
impr
'>  '
0
impr
'Nota 2: '
0
impr
n2
1
impr
'>  '
0
impr
'Média: '
0
impr
media
1
impr
'-----------------'
1
leit
Sair?
q
end
impr
'Total: '
0
impr
total
1
impr
'================='
1
impr
'Aprovados: '
0
impr
ap
1
impr
'================='
1
impr
'Reprovados: '
0
impr
rp
1
end

    Source: geocities.com/br/jnejunior

               ( geocities.com/br)