Как записывается имя файла? что в имени файла записывается после точки?

После точки в имени файла записывается его расширение, например:   книга.rar,  dota.exe, список учащихся.docx он определяет программу, через которую должен открыть данный файл. обычно файл с типом *.exe - программный файл, это может быть любая программа или игра. *.doc или *.docx - текстовый документ, *.rar - архив и т.д

{первый вариант} uses crt; label 1; var  a: integer; begin 1: write('введите азимут в градусах: '); readln(a);   if a in [1..89] then writeln('направление: северо-восток');   if a = 90 then writeln('направление: восток');     if a in [91..179] then writeln('направление: юго-восток');     if a = 180 then writeln('направление: юг');       if a in [181..269] then writeln('направление: юго-запад');       if a = 270 then writeln('направление: запад');         if a in [271..359] then writeln('направление: северо-запад');         if a in [0,360] then writeln('направление: север');           if a > 360 then begin             clrscr;             writeln(', введите корректное значение.');             goto 1;             end;           if a < 0 then  begin             clrscr;             writeln(', введите корректное значение.');             goto 1;             end;   end.  { второй вариант} uses crt; label 1; var  a: integer; begin1: write('введите азимут в градусах: '); readln(a); case a of  0,360:     writeln('направление: север');   1..89:     writeln('направление: северо-восток');   90:       writeln('направление: восток');   91..179:   writeln('направление: юго-восток');   181..269: writeln('направление: юго-запад');   270:       writeln('направление: запад');   271..359: writeln('направление: северо-запад');   end; if a < 0 then begin  clrscr;   writeln(', введите корректное значение.');   goto 1;   end; if a > 360 then begin  clrscr;   writeln(', введите корректное значение.');   goto 1;   end;   end. 

Var       a, b, n: integer; begin       read(n);       if n< =7 then exit;             for a : = 1 to n do               for b : = 1 to n do                       if 3 * a + 5 * b = n then                               writeln('3 * ', a, ' + 5 * ', b, ' = ', n); end.