{* Задача 334 *}

Unit ZADACH334;
Interface
Implementation
Begin
 writeln('Проверить, встречается ли в заданном предложении словосочетание «Сальдо счета».');
End.

Program variant61;

Uses zadach334.pas; {* Эту строку можно удалить *}
Uses wincrt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  st1 : String;
  st2 : String;
  k   : integer;
Begin
  writeln ('Введите исходную строку');
  readln (st1);
  st2 := 'сальдо счета';
  k := pos(st2, st1);
  If k = 0 Then
    writeln('Этого словосочетания нет')
  Else writeln('Это словосочетание есть');
End.