//                                         ********************************  Solution  Parte one using for loop  ****************************************
 
   
//                                         ********************************  Solution  using for loop  ****************************************
Program ex01;
var
       i,a,b:integer;
Begin

writeln('give the value of a and b');
readln(a,b); 
for i:=a to b do
     writeln(i);     
end.
//                                         ********************************  Solution  using repeat loop  ****************************************

Program ex01;
var i:integer;
Begin
i:=0;
repeat
Begin
write(i,' ');
i:=i+1;
end;
until i>10;
readln;
end.
//                                         ********************************  Solution  using while  loop  ****************************************

Program ex01while;
var i:integer;
Begin
i:=0;
while i<=10 do
begin
writeln(i);
i:=i+1;
 end;
end.