programa

2= Program nota; var nome:string; n1,n2,n3,media:real; begin write ('Olá'); readkey; writeln('Digite nome do aluno'); write('Nome'); readln(nome); write('Digite suas 3 notas da unidade'); readln(n1,n2,n3); media:=(n1+n2+n3)/3; write('O aluno ',nome,' está '); if (media>=6) then write('aprovado com média: ',media:6); if media<6 then write('reprovado por média: ',media:6); readkey; End.
------------------------------------------------------------------------------------------------------------------
3= Program estudante; var codigo:string; n1,n2,n3,media:real; begin write ('Olá'); readkey; writeln('Digite seu codigo'); readln(codigo); write('Digite suas 3 notas da unidade'); readln(n1,n2,n3); media:= n1/2.5+n2/3.3333333+n3/3.3333333; write('codigo ',codigo,' está '); if (media>=5) then write('aprovado com média: ',media:5); if media<5 then write('reprovado por média: ',media:5); readkey; End.
------------------------------------------------------------------------------------------------------------------------------
Program Ex; var senha: integer; begin write('Digite a senha de acesso: '); readln(senha); if senha=4567 then write('Acesso permitido') else write('Acesso nao permitido'); end. Program caixa ; var saldo,senha,login,saque,deposito,soma:real; resp,resposta:string; opcao:char; Begin repeat CLRSCR;

WRITELN;writeln; writeln('[1]-Cadastrar Senha de Acesso'); writeln('[2]-Deposito'); writeln('[3]-saque'); writeln('[4]-Saldo'); writeln('[5]-Cancelar operação'); writeln;writeln; opcao:=readkey; case opcao of '1': Begin writeln('Crie uma Senha de Acesso'); readln(senha); writeln('senha criada com Secesso'); readkey; end; '2':Begin writeln('Entre com a senha'); readln(login); if senha<>login then