[Bruteo]

Сообщение от rangel

Реализуйте этот код
function pos(Substr,S:string):integer;
как в Delphi
возвращяет в строке S номер начал подстроки Substr
например
i:=pos('рив','привет');
вернёт цифру 2

pos - стандартная функция midlet pascal