Все формулы прописываем для товара А и далее растягиваем
Искомое значение - буква необходимого нам товара
Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет
Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2
Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение
Стоимость находим перемножая цену и количество
function max (x,y : longint) : longint;
begin
if x>y then max:=x else max:=y;
end;
var k : longint; s : string;
begin
readln(s);
while (pos('.',s)<>0)or(pos('!',s)<>0)or(pos('?',s)<>0) do
begin
k:=k+1;
Delete(s,max(max(pos('.',s),pos('!',s)),pos('?',s)),1);
end;
writeln(k);
end.