составить программы

1.найти сумму всех 3х значных чисел кратных 17.

2.найти произведение всех чисел меньше 16.

1)

var b,i:integer;

beginb:=0; for i := 100 to 999 do if (i mod 17) = 0 then b:=b+i; writeln (b);end.

2)

var b,c:integer;

begin b:=1; for c:= 1 to 15 do b:=b*c; writeln (b);end.