Переименовать файлы в каталогах -Pascal(Паскаль)

var f:file;
begin
assign(f,'D:\ASTUDIO.MP3');
rename(f,'D:\studio.MP3');
write('Fail pereimenovan!');
readln
end.

Leave a Comment

39 − = 35