строковые процедуры

[РОзочка_))]

помогите плиии, объясните как это делать Что вернёт функция Copy(S, 1 , Pos(‘я‘, S)+1), если в S было записано значение ‘красная строчка‘?

[Poma][a]

В паскале вбей

var
          s : string;

begin 
          s := 'красная строчка';
          WriteLn (Copy (s, 1, Pos('я', s)+1))
end.

что так сложно сделать?

[TinMan]

Ромаха, во-первых, ты ошибся.. )
А во-вторых, этот способ не поможет дать верный ответ. Сам догадаешься, почему?

[Poma][a]

проглядел 10 букаф