Для двух следующих задач дан набор команд в произвольном порядке(других команд в программе быть не должно).Соберите программы путем выбора правильных команд.
program chislo
b:=a div 10;
begin
writeln(' k =' , k);
while a>1 do
begin
b:=b mod 10;
readln(a,b,k);
writeln('s = ',s:5:2);
s'=0;
end;
var a, k:integer;
k:=0;
a:=b mod 10 ;
readln (a);
writeln ('s = ', s);
a:= a div 10;
var a:real;
end.
var a,b,k,s:integer;
s:=s+b;
readln (a,b);
var a,b,s:integer;
b:=a mod 10;
k:=k+1;
a:=a mod 10;
while a>0 do
Задача 1.Кол-во разрядов.Вводится целое число положительное число a меньше или равно 109.Определите кол-воразрядов в этом числе.
1)Соберите программу путем выбора правильных команд из представленного выше набора.
Текст программы:
..................................................................................................
..................................................................................................
Всего команд в программе:.........
2)Составьте тесты для проверки правильности решения задачи
таблица во вложениях



Пожалуйста прошу помогите!!!!!36 б даю!!Прошу вас

var  a, k: integer;begin  readln(a);  while a > 0 do  begin    k := k + 1;    a:= a div 10;  end;  writeln(' k =', k);end.Пример:105  k =366    k = 21      k =1104  k =311    k =294   k =2