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

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