помогите написать программы на паскале.

1. вычислить произведение нечетных чисел в диапазоне от 40 до 20

2. определите и выведите на экран количество чисел между 20 и 100, которые делятся без остатка на 4,5 и 10 одновременно.

var i, count: integer;

proizv:longint;

begin

proizv:=1;

count:=0;

for i:=20 to 40 do

begin

if (i mod 20) then

proizv:=proizv*i;

end;

for i:=20 to 100 do

if (i mod 45=0) then 3{Делятся на 4,5 и на 10=>делятся на 45}

count:=count+1;

writeln ('Произведение равно: ', proizv) ;

writeln ('Число кратных чисел: ', count) ;

end.