информатика , нужна программа и блок-схема , можно просто программу ! (паскаль) 1)найдите произведение всех 3-х значных чисел , оканчивающихся на 5. 2)найдите сумму всех 2-х значных чисел , оканчивающихся на 5 . буду !

1)var numb,pro:integer;
begin
pro:=1;
for numb := 100 to 999 do
 if (numb mod 10 = 5) then 
pro:= pro*numb;
writeln(pro);
end.
2)var numb,summ:integer;
begin
for numb := 10 to 99 do 
if (numb mod 10 = 5) then 
summ:= summ+numb;
writeln(summ);
end.