begin
var s := ReadString('Введите строку:');
var x := ReadString('Введите подстроку строку:');
if Pos(x, s) <> 0 then
Print('Подстрока присутсвует')
else
Print('Подстрока отсутсвует');
end.
