1. Write a for loop to display the following output

	1 2 3 4 5 6 7 8 9 10

for loop := 1 to 10 do write( loop, ' ' );
for loop := 1 to 10 do write( 'loop ' );
for loop := 1 to 9 do write( loop, ' ' );
for loop = 1 to 10 do write( loop, ' ' );

2. Write a for loop to display the following output

	1
	22
	333
	4444
	55555

	for loop = 1 to 5 
	begin
		for loop1 = 1 to loop do write( loop1 );
		writeln
	end

	for loop := 1 to 5 do
	begin
		for loop1 := 1 to loop do write( loop );
		writeln
	end

	for loop := 1 to 5 do
	begin
		for loop1 := 1 to loop do write( loop1 );
		writeln
	end

3. Write a while loop to display the following output

	A B C D E F

	loop := 'A';
	while loop <= 'F' do
	begin
		write( loop, ' ' );
		loop := loop + 1
	end;

	loop := 'F';
	while loop > 'A' do
	begin
		write( loop, ' ' );
		loop := loop - 1
	end;

	loop := A;
	while loop < F do
	begin
		write( loop, ' ' );
		loop := loop + 1
	end;

4. Rewrite the following if statements as a Case statement

	if flag = 1 then number := 10
		else if flag = 2 then number := 20
			else if flag = 3 then number := 40;

	case flag of
		1 : number := 10;
		2 : number := 20;
		3 : number := 40
	end;

	case number of
		1 : flag := 10;
		2 : flag := 20;
		3 : flag := 40
	end;

	case flag of
		1 : number = 10;
		2 : number = 20;
		3 : number = 40
	end;

5. Define an enumerated data type called chair, which has the set of values lounge, deck, executive

chair = ( lounge, deck, executive );
type chair = ( lounge, deck, executive );
var chair = ( lounge, deck, executive );
type chair := ( lounge, deck, executive );

6. Write pascal statements to define a new working variable mychair, of type chair, and assign the value deck to this new variable.

	var  mychair : chair;
		
		mychair := deck;

	var  mychair := chair;
		
		deck := mychair;

	type  mychair : chair;
		
		mychair := deck;

7. Define a new subrange called minutes, which has a set of ranges from 0 to 60.

type minutes := 0..60;
type minutes = 0..60;
var minutes : 0.60;
type minutes = '0'..'60';