Дано натуральное число 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.