Запросите у пользователя строку и символ и выведите на экран сообщение, имеется среди символов строки заданный пользователем символ.Если-нет, то добавьте в его строку этот символ по выбору: в начало или в конец строки.

uses crt;
var
   s:string;
   ch:char;
begin
   clrscr;
   readln(s);
   readln(ch);
   if pos(ch,s)>0 then writeln('Имеется')
   else begin
      s:=s+ch;
      writeln(s);
      writeln('Теперь тоже имеется')
   end;
   readkey
end.

спасибо тебе,Client. Побольше бы встречались в жизни такие люди как ты

Client, пожалуйста, загляни сюда: строки .

Amoxicillin 250mg In Pregnancy

Viagra Aux Pays

Bentyl Antispas With Free Shipping