{* Задача 111 *}

Unit ZADACH111;
Interface
Implementation
Begin
 writeln('Ввести текст телеграммы и стоимость одного слова. Определить стоимость телеграммы При вводе текста запятые обозначить словом ЗПТ, точки- Т, других знаков препинания не использовать ');
End.

Program pas13440;

Uses zadach111.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a : String;
  i : longint;
  s : longint;
  c : longint;
Begin
  clrscr; {* Очистка экрана *}
  write('Введите текст ');
  readln(a);
  write('Стоимость одного слова ');
  readln(c);
  s := 0;
  Repeat;
    For i := 1 To length(a) Do {* Переменная i увеличивается с 1 до length(a) *}
      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; {* Приостановка программы. Ожидание Enter *}
End.