Разработать класс с полями определенных типов.Разработать в классе два метода для вычисления или оформления операций.В классе должен быть конструктор.
В Паскале АВС
1. Класс FileNameClass
2. Имя,расширение, путь к нему
3. Метод выводит на экран тип файла (текстовый,графический или видео)
4. Метод выводит на экран имя в 10-кратном размере

[2:] - срез строки, начиная со второго символа, поскольку в Паскале функция ExtractFileExt() возвращает расширение, начинающееся с точки и её надо пропустить.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!type  FileNameClass=class    public    fullpath:string;  name:string;  extension:string;  path:string;    constructor (fp:string);  begin    fullpath:=fp;    name:=ExtractFileName(fp);    var p:=LastPos('.',name);    if p>0 then name:=name[:p];    extension:=ExtractFileExt(fp);    path:=ExtractFilePath(fp)  end;    procedure PutType;  begin    case extension[2:] of    'txt':Writeln('файл текстовый');    'bmp','jpg','tiff','gif','psd','png','ico':Writeln('Файл графический');    'mp4','mov','mpg','avi':Writeln('Файл видео')    else Writeln('Файл неизвестного типа')    end  end;    procedure PutName;  begin    Writeln(name)  end;    end; begin  var oFile:=new FileNameClass(ReadlnString('Полный путь к файлу:'));  oFile.PutName;  oFile.PutType;  oFile:=nil // если надо явно удалить объектend.ПримерПолный путь к файлу: PABCWork.NET\demo.bmpdemoФайл графический"Десятикратный размер", который Вы не соизволили объяснить, сделаете сами, когда поймете, что это.