Создайте список своих любимых развлечений и сохраните его в пере-менной games. Теперь создайте список любимых лакомств, сохранив его в переменной foods. Объедините два этих списка, сохранив результат в переменной favorites, и напечатайте значение этой переменной

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

состояние тропосферы в данной местности и в данное время называеться погодой

var s1, s2: string;

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