Написать программу на языке Паскаль : Определить наличие в строке S подстроки Х. Вывести на экран соответствующее сообщение.

begin

 var s := ReadString('Введите строку:');

 var x := ReadString('Введите подстроку строку:');

 if Pos(x, s) <> 0 then

   Print('Подстрока присутсвует')

 else

   Print('Подстрока отсутсвует');

end.