1)с клавиатуры вводится 20 чисел. найти произведение чисел кратных 4.2) найти количество 4-х значных чисел оканчивающихся на 3. турбо паскаль. заранее ))

Vara,k,s,b:integer;Begins:=1;b:=0;for k:=1 to 20 dobeginreadln(a);if (a div 1000 <10) and (a div 1000 >0) and (a mod 10 = 3) thenb:=b+1;if (a mod 4 = 0) thens:=s*a;end;writeln('Произведение чисел, кратных четырем - ',s);writeln('Количество четырехзначных чисел, оканчивающихся на три - ',b);end.