Помогите решить

3. С клавиатуры вводится четырехзначное число. Получить число, равное произведению его цифр.

4. С клавиатуры вводится натуральное число п. Узнайте в нем количество цифр.

5. С клавиатуры вводится натуральное число п. Посчитайте сумму S=1+2+3+ ... + n.

(Pascal ABC)

1.

var n, p:integer;

begin

write ('n='); readln (n);

p:=1;

while n0 do begin

p:=p * (n mod 10);

n:=n div 10;

end;

writeln ('p = ', p);

end.

Пример:

n=1234

p = 24

2.

var n, k:integer;

begin

write ('n='); readln (n);

k:=0;

while n0 do begin

k:=k+1;

n:=n div 10;

end;

writeln ('k = ', k);

end.

Пример:

n=456123

k = 6

3.

var n, s, i:integer;

begin

write ('n='); readln (n);

s:=0;

for i:=1 to n do s:=s+i;

writeln ('s = ', s);

end.

Пример:

n=5

s = 15