Шановні гуртківці, програма, з якою ви маєте працювати на цьому тижні::

Program st1;
Uses CRT;
Var n:Longint;

Function Kc(n:Longint):integer;
 Var K:integer;
begin
 K:=0;
 While n>0 do
  begin
   n:= n div 10;
   K:=K+1;
  end;
  Kc:=K;
end;

Function Sc(n:Longint):integer;
 Var c,S:integer;
begin
 S:=0;
 While n>0 do
  begin
  c:=n mod 10;
   S:=S+c;
   n:= n div 10
  end;
  Sc:=S;
end;

Begin
 write('Ввeдіть число:');
 Readln(n);
 Writeln('Кількість цифр числа ',n, '=', Kc(n));
 Writeln('Сума цифр числа ',n, '=', Sc(n));
End.

Ваше завдання:
1. Набрати програму і навчитися з нею працювати, тобто вводити різні числа і перевіряти результат. 
2. Напишіть мені, які питання в вас виникли ( "Контактах"). 
3. Напишіть функцію, яка визначає кількість непарних цифр.