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

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

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

[-programist-]

var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in ['.','?','!'] then inc(k);
writeln(k);
end.