Program string_17;
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.