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

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