WRITE('DIGITE A QUANTIDADE DE METROS QUADRADOS DA AREA A COBRIR: ');

EX1

Program CHAOBRILHANT;

                        USES CRT;

                        VAR QUANTA,QUANTMC,QUANT_F:REAL;

Begin

                WRITE('DIGITE A QUANTIDADE DE METROS QUADRADOS DA AREA A COBRIR: ');

                READLN(QUANTA);                

                WRITE('DIGITE A QUANTIDADE DE METROS QUADRADOS CONTIDO EM UMA CAIXA: ');

                READLN(QUANTMC);

                QUANT_F:=QUANTA/QUANTMC;

                WRITELN('A QUANTIDADE NECESSARIA:  ',QUANT_F:0:2);

                            WRITELN('PRESSIONE QUALQUER TECLA PARA FINALIZAR');                 

          READKEY;        

End.

EX2

Program REAJUSTESALARIAL ;

USES CRT;

VAR  SALANT,NOVSAL,REAJ,P_REAJ:REAL;

Begin

        WRITE('DIGITE O VALOR DO SALARIO ANTERIOR (SEM REAJUSTE): ');

          READLN(SALANT);

          WRITELN();

        WRITE('DIGITE O VALOR DO SALARIO REAJUSTADO: ');

          READLN(NOVSAL);

          REAJ:=NOVSAL-SALANT;

          P_REAJ:=(REAJ*100)/SALANT;

           WRITELN();

          WRITELN('O VALOR DO REAJUSTE E: ',REAJ:0:2,' R$');

           WRITELN('O PERCENTUAL DE REAJUSTE FOI: ',P_REAJ:0:1,'%');

          READKEY;        

End.

EX3

...