Просто напиши какую нибудь фигню

1):С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
    С:\Учеб­ный\Ин­фор­ма­ти­ка ->
    С:\Учеб­ный ->
Не подходит, т.к. Витя опустился на n уровней, а поднялся на  n+2, что не подходит по условию.
2)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка ->
   С:\Учеб­ный ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка\Про­грам­ми­ро­ва­ние->
   С:\Учеб­ный\Ин­фор­ма­ти­ка\Про­грам­ми­ро­ва­ние\Пас­каль
Не подходит, т.к. Витя спустился на либо на 2 уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию.
3)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка -> 
   С:\Учеб­ный -> 
   С:\Учеб­ный\Ма­те­ма­ти­ка -> 
   С:\Учеб­ный\Ма­те­ма­ти­ка\Дроби
Подходит. Витя опустился на 2 уровня вниз и поднялся на 2 уровня вверх.
4)С:\Учеб­ный\Ин­фор­ма­ти­ка\Ко­ди­ро­ва­ние -> 
   С:\Учеб­ный\Ин­фор­ма­ти­ка ->
   С:\Учеб­ный ->
   С:\ ->
   С:\Учеб­ный\ ->
   С:\Учеб­ный\Ин­фор­ма­ти­ка
Не подходит, т.к. Витя спустился на 3 уровня вниз, а поднялся на 2, что не подходит по условию.
ответ: 3)

Var
  a,r:real;
begin
  Write('Введите a и n: '); Read(a,r);
  if a=2*r then Writeln('Квадрат описан около окружности')
  else Writeln('Квадрат не описан около окружности')
end.



var
  n:char;
  cm:string;
begin
  Write('Введите натуральное двухзначное число: '); Readln(cm);
  Write('Введите цифру от 0 до 9: '); Readln(n);
  if pos('3',cm)>0 then Writeln('В числе есть цифра 3')
  else Writeln('В числе нет цифры 3');
  if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0)
    then Writeln('В числе есть цифра 6,7 или 9')
    else Writeln('В числе нет цифры 6,7 или 9');
  if pos(n,cm)>0 then Writeln('В числе есть цифра ',n)
  else Writeln('В числе нет цифры ',n)
end.