program ideone;
type
	subInteger = 1..100;
var
	nu	:subInteger;
	
begin

	nu := 9;

	writeln(' ':5, 'Первоначально число : ', nu:2);
	
	nu := Succ(nu);
	
	writeln(' ':5, nu:2);
	
	nu := Succ(nu);

	writeln(' ':5, nu:2);

	nu := Succ(nu);

	writeln(' ':5, nu:2);

	nu := Succ(nu);

	writeln(' ':5, nu:2);
	
	nu := Succ(nu);

	writeln(' ':5, nu:2);
	
	nu := Pred(nu);
	nu := Pred(nu);
	nu := Pred(nu);
	
	writeln(' ':5, nu:2);

end.