В некотором каталоге хранится файл Список_литературы. txt. В этом каталоге создали подкаталог с именем 7_CLASS и переместили в него файл Список_литературы. txt. После чего полное имя файла стало D:\SCHOOL\PHYSICS\7_CLASS\Список_ли тературы. txt. Каково полное имя каталога, в котором хранился файл до перемещения?​

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

трех зайцев по углам, двоих вдоль стен

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.