writeln('Печатаем числа от 1 до 10');
i:=9;					
	{ Инициализация }
While (i >= 0) Do 
Begin
  writeln(10-i);			
  i:=i-1;				
  	{ Шаг цикла }
End;