Написать программу в паскале.

Дано натуральное число n (n<1000)

Определить:

а) сколько цифр в числе

б) чему равна сумма его цифр 

program znanijacom;uses crt;varn:string;i,k,r,c,b:integer;num:array [1..4] of char;beginwriteln('vvedite celoe chislo <1000:');read(n);k:=length(n);writeln('Cufr v chisle: ',k);for i:=1 to k dobeginnum[i]:=n[i];val(num[i],c,b);r:=r+c;end;writeln('Ux cymma : ',r);end.