Contador / AULA 23/09/2014

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//AULA DIA 17/09/2014

Program CONTADOR;

uses crt;
var a, b, n: integer;

Begin
         writeln ('Digite um primeiro valor: ');
         readln (a);
         writeln ('Digite um segundo valor: ');
         readln (b);

         clrscr;

          writeln (a);
           while a < b do
              begin
                 a:=a+1;
                 writeln (a);
              end
 End.