
Question 1[2 marks] Class File: private filename //Constructor for the File class procedure new(strFilename): filename = strFilename public procedure rename(strFilename) if strfilename!="": filename = strFilename Class MP3 inherits File: private title private artist private duration //Constructor for the MP3 class…