1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
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.