Exercicios de revisão pascal

//Exercicio revisão 1

Program Pzim ;
var altura : real;
var nome : string;
Begin

         writeln('Insira o nome do atleta');
         read(nome);
         writeln('Insira a altura do atleta');
         read(altura);

         writeln('O nome do atleta é ', nome);

         if (altura>=1.85) then

         writeln('O atleta disputará o BASQUETE')

         else

         writeln('O Atleta disputará o FUTEBOL');




End.


//Exercicio revisão 2

Program Pzim ;
var salario,ajuste,reajuste : real;
var nome : string;
Begin

         writeln('Insira o nome do jogador');
         read(nome);
         writeln('Insira o salário do jogador');
         read(salario);

         writeln('O nome do atleta é ', nome);

         begin
                     if (salario>=3000) then
                                    begin
                                        reajuste:=(salario*0.1)+salario;
                                        ajuste:=salario*0.1;
                                                writeln('O Valor do reajuste é ', ajuste);
                                                writeln('O Salário com reajuste é ',reajuste);
                                    end


                     else
                                    begin
                                        reajuste:=(salario*0.05)+salario;
                                        ajuste:=salario*0.05;
                                                writeln('O Valor do reajuste é ', ajuste);
                                                writeln('O Salário com reajuste é ',reajuste);
                                    end
         end



End.

//exercicio revisão 3
Program Pzim ;
var valor,ajuste:real;
var tipo:string;
Begin
         writeln('Insira o tipo da pipoca');
         read(tipo);
         writeln('insira o valor da pipoca');
         read(valor);
         writeln('____- VALOR ORIGINAL-____');
         writeln('                         ');
         writeln('1.PIPOCA - ',tipo,'      ');
         writeln('VALOR-R$ ', valor,'      ');
         writeln('-------------------------');
         writeln('                         ');
         writeln('                         ');
         writeln('                         ');

         if (tipo='doce') then
                        begin
                                 ajuste:=(valor*0.15)+valor;
                                 writeln('___- VALOR REAJUSTADO-___');
                                 writeln('                         ');
                                 writeln('1.PIPOCA - ' ,tipo,'     ');
                                 writeln('VALOR - R$ ', ajuste,'   ');
                                 writeln('-------------------------');
                end

          else

          begin
                                 ajuste:=(valor*0.10)+valor;
                                 writeln('___- VALOR REAJUSTADO-___');
                                 writeln('                         ');
                                 writeln('1.PIPOCA - ' ,tipo,'     ');
                                 writeln('VALOR - R$ ', ajuste,'   ');
                                 writeln('-------------------------');

             end


End.