Var i,x,k,s:integer;

function Sum(x:integer):integer;
var
   t:string;
   i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;

function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;

begin
for i:=1 to 5 do
  begin
  write('Введите число ',i,': '); 
  readln(x); 
  k:=Kol(x); 
  s:=Sum(x); 
  writeln('Количество цифр ',k,'; сумма цифр ',s)
  end
end.