سورس نمایش اعداد از عدد خواسته شده تا 100

این برنامه عدد را از شما گرفته و اعداد بین ان تا100 را نمایش می دهد(به زبان پاسکال)

*****************************************************************************

var

a,i:integer;

begin

i:=1;

write('enter begin number:');

read(a);

for i:=i+1 to 100 do

write(i:8);

end.