Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
const tag = '{CODE}'; var src: String; begin ReadLn(src); WriteLn(src[1]); if Pos(tag,src)>0 then WriteLn('ok'); end.