{* Задача 235 *}

Unit ZADACH235;
Interface
Implementation
Begin
 writeln('Составить программу проверки есть ли в тексте буква "s"');
End.

Program z11;

Uses zadach235.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  t  : String;
  i  : integer;
  ot : boolean;
Begin
  clrscr; {* Очистка экрана *}
  writeln ('введите текст:');
  readln(t);
  For i := 1 To length(t) Do {* Цикл для i => [1 .. length(t)] *}
    If t[i] = 's' Then
      ot := true;
  If ot = true Then
    write('да')
  Else write('нет');
    readln; {* Ждем нажатия Enter *}
End.