Program spisok gruppi;
const
    n=15;
    m=16;
type
    record_type=record
    name:string[20];
    day:1..31;
    mon:1..12;
    year:1980..2020;
    post:2000..2020;
    mark:array[1..m] of byte;

end;

var
    f:file of record_type;
    data:array[1..n] of record_type;
    i,k:integer;

begin
    assign(f,'st1.dat');
    rewrite(f);
    for i:=1 to n do

    begin
        write(i,'NAME: ');
        readln(data[i].name);
        write('Data rojdeniya(den mecyac god):');
        readln(data[i].day,data[i].mon,data[i].year);
        write('God postupleniya: ');
        readln(data[i].post);

        for k:=1 to m do

            begin

               write('Mark #',k, ':');
               readln(data[i].mark[k]);
            end;

        write(f,data[i]);
     end;
        close(f);