Question

С клавиатуры вводят слово и символ.Составьте программу,которая: проверяет,есть ли в этом слове заданный символ

Answer 1

var s:string;

c:char;

begin

readln(s,c);

if pos(c,s)<>0 then writeln('est') else writeln('netu');

end.