{Ввести текст телеграммы и стоимость одного слова.Опред. стоимость телеграммы При вводе текста запятые обознач. словом ЗПТ,точки-словом Т,других знаков припинания не исп.}

uses crt;
var a : string;
    i,s,c : longint;
begin
  clrscr;
write('Введите текст ');
readln(a);
write('Стоимость одного слова ');
readln(c);
s:=0;
repeat;
    for i:=1 to length(a)do
    if (a[i]=' ') 
	or (a[i]+a[i+1]+a[i+2]='ЗПТ')
    then s:=s+c;
    until a[i]='Т';
    s:=s+c;
write('стоимость телеграммы: ',s);
  readln;
end.