program p9_a_1 uses crt var integer begin clrscr write Vvedite natural

program p9_a_1; {7 A 1.1}
uses crt;

var n, i, k : integer;
begin
 clrscr;
 write('Vvedite naturalnoe chislo n, (1<=n<=32) : '); readln(n);

 k := 1;
 for i := 1 to n do
  if (i > 10) then k := 2;

 writeln('Kol-vo cifr : ', k);
readln;
end.