program p9_a_1 uses crt var integer begin clrscr write Vvedite natural

 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.