{ Pascal Tutorial at RJM Programming}
          { Primer Tutorial}
          program test;
	  var
  		a : integer;
  		i : integer;
          begin

              a := 1;
              i := 0;

	      for i := 1 to 10 do  
  		writeln('Loop: ', i);

	      case i of
  			0 : write('zero');
  			1 : write('one');
  			2 : write('two');
  			3,4,5,6,7,8,9,10: write('?')
              end;
              

              writeln('Hello, world!');
 
	      repeat
  		a := a + 1;
  		writeln('Repeat a= ', a)
	      until a = 10;
 

              readln;
          end.