Помогите,пожалуйста,написать программу в PascalABC
спасибо!

спасибо большое :)

Пожалуйста

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var s:=ReadlnString('Введите полный путь:');  Writeln('Расширение файла: ',ExtractFileExt(s)[2:s.length])end.Тестовое решение:Введите полный путь: H:\PABCWork.NET\Samples\ABCObjects\Test1.pasРасширение файла: pas