var s1, s2: string;
begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1));end.
var
s1, s2: string;
begin
writeln('введите строку');
readln(s1);
writeln('введите слово');
readln(s2);
writeln('позиция слова в строке');
writeln(pos(s2, s1));
end.