Напишите пожалуйста такие вот проги....буду очень благодарен... Опции

[Незнайка(((]

6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста.

[-programist-]

var a,b,c,d:integer;
begin
readln(a);
b:=a mod 100;
d:=a div 10;
if(b>d)then writeln(b)else writeln(d);
end.