1.Дана строка. Встречается ли в ней подстрока меньше меньше ,_ больше больше ? Паскаль

var s: string; begin read(s); if (pos('<<,_>>', s) = 0) then   writeln('<<,_>> не встречается в заданной строке') else   writeln('<<,_>> встречается в заданной строке'); end.