Помогите решить информатику плз!!!

1) Произведения цифр числа это факториал, вот программа:

var
n:integer;
i:byte;
f:longint;
BEGIN
writeln('Vv.N');
readln(n);
For i:=1 to n do
f:=f*i;
writeln(f);
readln;
END.

2)Тоже легкая
Var
c,a,b:integer;
x1,x2,x3:byte;
BEGIN
writeln('Vv.a i b');
readln(a,b);
For c:=100 to 999 do
begin
x1:=c div 100;
x2:=c div 10-x1*10;
x3:=c mod 10;
IF (x1+x2+x3=a) and (c mod b=0) THEN writeln(c);
end;
readln;
END.