Exercicios Pascal (repeat e until)

Program exercicio1 ;
var nome:string;
    nota,nota1,media: real;

 Begin
     repeat
          writeln('insira o nome do aluno:');
          read(nome);
          writeln('Insira a primeira nota:');
          read(nota);
          writeln('Insira a segunda nota:');
          read(nota1);
          writeln('                         ');
          media:=(nota+nota1)/2;
          writeln('                         ');
          writeln('O nome do aluno é', nome);
          writeln('A média do aluno é', media);
          writeln('                         ');
     until(nome='pedro') or (nome='Pedro') or (nome='PEDRO');

 End.

Program exercicio2 ;
var nome:string;
    salario, resultado: real;

 Begin
     repeat
          writeln('insira o nome do funcionário:');
          read(nome);
          writeln('Insira o salário do funcionário:');
          read(salario);

          if(salario>=3000) then
          resultado:=(salario*0.15)+salario
          else
          resultado:=(salario*0.10)+salario;

          writeln('                         ');
          writeln('O nome do funcionário é ', nome);
          writeln('Seu novo salário é ', resultado);
          writeln('                         ');

     until(salario=2000) or (salario=2000) or (salario=2000);

 End.

Program exercicio3 ;
var nome:string;
    salario, resultado: real;

 Begin
     repeat
          writeln('insira o nome do funcionário:');
          read(nome);
          writeln('Insira o salário do funcionário:');
          read(salario);

          if(salario>=5000) then
          resultado:=(salario*0.10)+salario
          else
          resultado:=(salario*0.05)+salario;

          writeln('                         ');
          writeln('O nome do funcionário é ', nome);
          writeln('Seu novo salário é ', resultado);
          writeln('                         ');

     until(salario=4000) or (salario=4000) or (salario=4000);

 End.

Program exercicio4 ;
var nome:string;
    saldo: real;

 Begin
     repeat
          writeln('insira o nome do cliente:');
          read(nome);
          writeln('                  ');
          writeln('Insira o saldo do cliente:');
          read(saldo);

          if(saldo<>0)then

          begin
          if(saldo>0) then
          writeln('SALDO POSITIVO')
          else
          if(saldo<0) then
          writeln('SALDO NEGATIVO')
          end
          else
          writeln('SALDO IGUAL A ZERO');



     until(saldo=0);

 End.

Program exercicio5 ;
var nome:string;
    salario,aumento: real;

 Begin
     repeat
          writeln('insira o nome do funcionario:');
          read(nome);
          writeln('                  ');
          writeln('Insira o salario do cliente:');
          read(salario);

          if(salario>=5000)then
          aumento:=(salario*0.05)+salario
          else
          if(salario>=4000)then
          aumento:=(salario*0.10)+salario
          else
          aumento:=(salario*0.15)+salario;

          writeln('O nome do funcionário é ',nome);
          writeln('O Novo salário do funcionário é R$', aumento);



     until(nome='adão') or (nome='Adão') or (nome='ADÃO');

 End.

Program exercicio6 ;
var nome:string;
    nota1,nota2,nota3,media: real;

 Begin
       repeat
          writeln('Insira o nome do aluno');
          read(nome);
          writeln('Insira a primeira nota');
          read(nota1);
          writeln('Insira a primeira nota');
          read(nota2);
          writeln('Insira a primeira nota');
          read(nota3);

          media:=(nota1+nota2+nota3)/3;

          if (media>=80) then
          writeln('APTO')
          else
          if(media>=60)then
          writeln('RECUPERAÇÃO')
          else
          writeln('NÃO APTO');




       until (media=80) and (nome='Eva') or (nome='eva') or (nome='EVA') ;
 End.