Программа:
#!/usr/bin/python
print "Var s:string;
Begin
write('Введите полное имя файла: ');readln(s);
if Pos('\',s)>0 then writeln(Copy(s,1,Pos('\',s)-1))
else writeln('\');
End.\n";
