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

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

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

[-Programist-]

1)var a,b,c,d:integer;
begin
readln(a);
b:=a mod 100;
c:=(a div 10)mod 10;
d:=a div 10;
writeln(b*c*d);
end.