Помогите написать программы на паскале. 1. Вычислить произведение нечетных чисел…

var i,count: integer; proizv: longint; beginproizv: =1; count: =0; for i: =20 to 40 do begin if (i mod 2<>0) 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.