В некоторой папке хранится файл Компот. doc. После того, как в этой папке
создали вложенную папку и переместили туда файл Компот. doc, его полное
стало C:\Дом \Рецепты \Напитки\компот. doc. Определите
созданной папки.
ИМЯ
ИМЯ
Место для ввода текста.
4. Пользователь работал с папкой Участники. Сначала он поднялся на один
уровень вверх, затем спустился на один уровень вниз, потом ещё раз
спустился на один уровень вниз. В результате он оказался в папке
/home/kp/конференция/секции/Инфор матика
Запишите полный путь папки, с которой пользователь начинал работу.
Место для ввода текста.​

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end. 

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

решение на

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