Exercicios ultimos pascal (1-10)

//EXERCICIO 1
Program teste ;
var x,y,valor : Real;
 Begin
      writeln('entre com o valor X:');
      read(x);
writeln('entre com o valor Y:');
      read(Y);
      valor:=(x+y)/2;

      IF(X > Y) then
        writeln('A média é', valor)
      ELSE
      writeln('Não foi possivel calcular a média');

 End.

//EXERCICIO 2
Program teste ;
var x : Real;
 Begin
      writeln('entre com o valor X:');
      read(x);

      IF(X > 0) then
        writeln('X é maior que zero')
      ELSE
      writeln('X é menor que zero');

 End.

//EXERCICIO 3
Program teste ;
var x : Real;
 Begin
      writeln('entre com o valor X:');
      read(x);
writeln('entre com o valor X:');
      read(Y);

      IF(X > Y) then
        writeln('X é maior que Y')
      ELSE
      writeln('Y é maior que X');

 End.

//EXERCICIO 4
Program teste ;
var p,q,total :Real;
var c : string;
 Begin
      writeln('Insira o código do consumidor:');
      read(c);
writeln('Preço KW/h:');
      read(p);
      writeln('Quantidade d KW/h consumido:');
      read(q);
      total:=p*q;
      writeln('O Código do consumidor é', c);
IF(total <= 11.20) then
 writeln('O total da conta é R$11,20')
      ELSE
         writeln('O total da conta é R$',total);

 End.

//EXERCICIO 5
Program teste ;
var c,x :Real;
 Begin
      writeln('Insira um numero:');
      read(c);

IF(c<0) then
x:= c*c

      ELSE
          x:=  SQRT(c);
         writeln('O Resultado é',x);

 End.

//exercicio 6
Program exercicio ;
var nome,total1,total2 :real;
Begin
         writeln('insira o numero de maças compradas');
         read(nome);

         if (nome>=12) then
             begin
                total1:=(nome*0.25);
                writeln('O valor total da compra é R$',total1);

             end
         else
             begin
                total2:=(nome*0.30);
                writeln('O valor total da compra é R$',total2);

             end



End.

//exercicio 7
Program exercicio ;
var a,senha,key:string;
Begin
         writeln('insira a senha');
         read(key);
         senha:=('escola');
         if (key=senha) then
         begin
                writeln('Acesso permitido');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
                writeln('As informações secretas são: 1 2 4 0 3 2 1 3 4 5 6 7 8 2 5 1 2 6');
         end
         else
                writeln('Acesso negado');




End.


//exercicio 8
Program teste ;
var lado : real;
Begin
         writeln('Insira o número de lados de um poligono');
         read(lado);
         if(lado=3) then
                    writeln('Triangulo')

         else
         begin
              if(lado=4) then
                     writeln('quadrado')
                  else
                         writeln('Não especificado');
         end


End.


//exercicio 9
Program exercicio ;
var nome:string;
var s,aumento5,aumento10 :real;
Begin
         writeln('insira o nome do funcionario');
         read(nome);
         writeln('insira o valor do salário do funcionario');
         read(s);

         if (2000<=s) then
             begin
                aumento5:=(s*0.05)+ s;
                writeln('O nome do funcionário é ' ,nome);
                writeln('O salário do funcionário com aumento de 5% é R$',aumento5);

             end
         else
               begin
                aumento10:=(s*0.1)+ s;
                        writeln('O nome do funcionário é ' ,nome);
                        writeln('O salário do funcionário com aumento de 10% é R$',aumento10);
             end



End.

//exercicio 10
Program exercicio ;
var nome:string;
var s,aumento10,aumento15 :real;
Begin
         writeln('insira o nome do funcionario');
         read(nome);
         writeln('insira o valor do salário do funcionario');
         read(s);

         if (s>3000) then
             begin
                aumento10:=(s*0.1)+ s;
                writeln('O nome do funcionário é ' ,nome);
                writeln('O salário do funcionário com aumento de 10% é R$',aumento10);

             end
         else
               begin
                aumento15:=(s*0.15)+ s;
                        writeln('O nome do funcionário é ' ,nome);
                        writeln('O salário do funcionário com aumento de 15% é R$',aumento15);
             end



End.