Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Флешка cd-диск и delev
различия флешка меньше чем cd-диск
delev больше чем cd-диск и флешка
В конце всего пути ученик оказался на уровне <span>D:\Comp\Логика\Таблицы.
По условию сказано что до этого он опустился на уровень вниз сначала один раз, а потом второй, значит просто поднимем его по каталогу на 2 уровня и он окажется в каталоге </span>D:\Comp, в который, как говориться в условии, он до этого поднялся, а это значит что нам достаточно опуститься, чтобы получить ответ : D:\Comp\Билеты.
Как вы поняли, путь каталога, с которым он работал изначально выглядит как: D:\Comp\Билеты , что и будет являться ответом.
Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.