Помогите срочно надо!!!
1.Среди двузначных чисел определить количество тех, у которых:
а)сумма цифр больше пяти
б)произведение цифр больше семи
2.Найти произведение всех кратных тридцати чисел,меньших 100
Написать программу для паскаля.Заранее благодарен.

1.var i,k1,k2:integer;begink1:=0; k2:=0;for i:=10 to 99 do begin if (i div 10)+(i mod 10)>5 then k1:=k1+1; if (i div 10)*(i mod 10)>7 then k2:=k2+1; end;writeln('k1 = ',k1,' k2 = ',k2);end.Результат:k1 = 75 k2 = 652. )beginwriteln(30*60*90);end.Результат:162000