Вот код программы!
free pascal
Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
A+B/C+sqrt(C)/A-B ...........
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон