Exercicios Until e while

//1
Program Pzim ;
var a: real;
 Begin
     repeat
          writeln('Insira a altura do atleta');
          read(a);
          if(a>=1.85)then
          writeln('BASQUETE')
          ELSE
          if(a>=1.80) then
          writeln('VOLEI')
          else
          if(a<1.80) then
          writeln('FUTEBOL');


     until(a>1.70);

 End.

//2
Program Pzim ;
var a,b: real;
var n: string;
 Begin
     repeat
          writeln('Insira o nome do atleta');
          read(n);
          writeln('Insira o salário do atleta');
          read(a);
          if(a>=4500.00) then
          b:=a-(a*20/100)
          else
          if(a>=3000.00) then
          b:=a-(a*10/100)
          else
          if(a<3000.00) then
          b:=a-(a*5/100);

          writeln('O novo salário do jogador é: ',b:0:2);

     until(a=3500.00);

 End.

//3

Program Pzim ;
var vi,vf: real;
var tp: string;
 Begin
     repeat
          writeln('Insira o tipo da pipoca');
          read(tp);
          writeln('Insira o valor da pipoca');
          read(vi);



          if(tp='doce') then
          vf:=vi+(vi*0.15)
          else
          if(tp='salgada') then
          vf:=vi+(vi*0.10)
          else
          if(tp='natural') then
          vf:=vi+(vi*0.05)
          else
          writeln('TIPO DE PIPOCA NÃO ESPECIFICADA');

          writeln(' ');
          writeln(' ');
          writeln(' ');
          writeln('O tipo de pipoca é: ',tp);
          writeln('Seu novo preço é: ',vf:0:2);

     until(tp='salgada');

 End.

//4

Program Pzim ;
var n1,n2,n3,media : real;
var contador: integer;

  Begin

     contador:=0;
     while(contador<50)do

     begin

         writeln('insira a nota 1 do aluno');
         read(n1);
         writeln('insira a nota 1 do aluno');

         read(n2);
         writeln('insira a nota 1 do aluno');
         read(n3);
         media:=(n1+n2+n3)/3;

         if(media>=8)then
         writeln('APTO')
         else
         if(media>=6)then
         writeln('EXAME')
         else
         writeln('RECUPERAÇÃO');

     contador:= contador+1;

     end




 End.

//5

Program Pzim ;
var a,b: real;
var n: string;
 Begin
     repeat
          writeln('Insira o nome do atleta');
          read(n);
          writeln('Insira o salário do atleta');
          read(a);
          if(a>=5800.00) then
          b:=a+(a*25/100)
          else
          if(a>=4500.00) then
          b:=a+(a*15/100)
          else
          if(a<4500.00) then
          b:=a+(a*10/100);

          writeln('O nome do atleta é: ', n );
          writeln('O novo salário do jogador é: ',b:0:2);

     until(a=6500.00);

 End.


//6

Program Pzim ;
var vi,vf: real;
var tp: string;
 Begin
     repeat
          writeln('Insira o tipo da sorvete');
          read(tp);
          writeln('Insira o valor do sorvete');
          read(vi);



          if(tp='flocos') then
          vf:=vi-(vi*0.08)
          else
          if(tp='chocolate') then
          vf:=vi-(vi*0.07)
          else
          if(tp='morango') then
          vf:=vi-(vi*0.06)
          else
          writeln('TIPO DE SORVETE NÃO ESPECIFICADO');

          writeln(' ');
          writeln(' ');
          writeln(' ');
          writeln('O tipo de pipoca é: ',tp);
          writeln(' ');
          writeln('Seu novo preço é: R$',vf:0:2);
          writeln(' ');
          writeln(' ');
          writeln(' ');

     until(tp='morango') or (tp='Morango') or (tp='MORANGO');

 End.