1.

	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.

	
	1
	22
	333
	4444
	55555

	for n = 1 to 5 
	begin
		for k = 1 to n do write( k );
		writeln
	end

	for n := 1 to 5 do
	begin
		for k := 1 to n do write( n );
		writeln
	end

	for n := 1 to 5 do
	begin
		for k := 1 to n do write( k );
		writeln
	end

3.

	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.

	
	  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. Öğeleri Ford, Opel, Renault olan otomobil adlı numaralanmış (enumerated) bir tip bildirimi aşağıdakilerden hangisidir?

otomobil = ( ford, opel, renault );
type otomobil = ( ford, opel, renault);
var otomobil = ( Ford, Opel, Renault );
type otomobil := ( Ford, Opel, Renault );

6. Yukarıdaki otomobil tipinden oto adlı bir değişken tanımlayıp ona Opel değerini atayan deyim aşağıdakilerden hangisidir?

	var  oto : otomobil;
		
		oto := opel;

	var  oto := otomobil;
		
		opel := oto;

	type  oto : otomobil;
		
		oto := opel;

7. Aşağıdakilerden hangisi saniyeleri göstermek için bir alt bölge tipi tanımlar?

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