Нужна помощь в паскале

[Маргарита109]

Здравствуйте, нам задали сделать задание "Любое четырехзначное число разобрать на цифры и вывести на экран сумму и произведение этих цифр".
Я в паскале,честно, вообще не разбираюсь. Помогите пожалуйста... я выбрала число 4455

[Aleksandr H.]

var n:longint;
    i,s,m,d:integer;
function kol(x:longint):byte;
var i:byte;
begin
 if x<10 then begin kol:=1;writeln(x) end
         else begin kol:=kol(x div 10)+1;writeln(x mod 10)end
end;         
begin
    write('введите число: ');readln(n);
    writeln('цифры:');
    i:=kol(n);
    s:=0;
    d:=1;
    for i:=1 to 4
    do
     begin
      s:=s+n mod 10;
      d:=d*(n mod 10);
      n:=n div 10;
     end;
    writeln('сумма цифр = ',s);
    writeln('произведение  цифр = ',d);
    readln
end.