Описать функцию DigitCount(K) целого типа, находящую количество цифр целого
положительного числа K. Используя эту функцию, найти количество цифр для
каждого из пяти данных целых положительных чисел. Построить блок-схему.

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.

номер 4, так как две собаки в этой части не допущены.

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.