в слово сок нужно вставить букву и чтобы получилось новое слово сток…По программе Паскаль

Ответ учителя по предмету Информатика

// PascalABC.NET, версия 3.2

program ins;

const

I = ‘т’;

B = ‘о’;

var

s: string := ‘сок’;

begin

write(s, ‘ + ‘, I, ‘ = ‘);

Insert(I, s, pos(B, s));

writeln(s);

end.