<span><span>Вообще, из 9 букв)
Автосалон</span>
</span><span><span>Автоспорт
Автоспуск
Авиасалон
</span></span>
Const N:=30(любое значение);
var a:array[1....N] of integer;
begin
for i:=1 to N do begin
write ('A='); read (a[i]);
end;
c:=0;
for i:=1 to N do begin
if a[i] mod 3=0 then begin
c:=c+1;
end;
end;
write (c);
end.
Так как полное имя файла стало
С:\папки\математика\задачи\Задача.doc,
а до этого были созданы два вложенных подкаталога, то очевидно, что созданные каталоги -
математика и
задачи <span>
Следовательно, полное имя файла до перемещения:
</span>С:\папки\Задача.doc