Дано натуральное число n. Определить:

a) Количество цифр в этом числе;

б) Сумму его цифр;

в) Первую цифру числа n;

Var n, sum, d, ind, first:integer;

begin

Write ('n');

Readln (n);

d:=1;

ind:=0;

sum:=0;

if n div d=0 then

begin

ind:=1;

sum:=n;

end

else

begin

while n div d0 do

begin

inc (ind);

sum:=sum + (n div d) mod 10;

d:=d*10;

end;

end;

Writeln ('suma', Sum);

Writeln ('kolvo', ind);

first: = (n div round (d/10)) mod 10;

writeln ('first', first);

readln;

end.