Записать краткое имя файлов

Гимн школы, Школа, КЛЮЧИ, Turbo Pascal

Объяснение:

Как я знаю краткое имя файла это имя без расширения

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

трех сажаешь по углам ограждения , двух в центр