[Grabber2006]

Задача - ввести число меньше 10. »

Код:

program ex;
var a: integer;
begin
	writeln('Введите число меньше десяти: ');
	readln(a);
	if (a < 10) then
       	  writeln('Правильно. Число меньше 10!')
	else
	  writeln('Неправильно. Число больше 10!');
end.