program bl;
uses crt;
type
studrec=record
 surname:string[20];
 name:string[20];
 otchestvo:string[20];
 stependia:integer;
end;
file_typl=file of studrec;
var
school:array[1..n] of studrec;
f:file_typl;
i,c,n:integer;
summa:integer;
Begin
clrscr;
assign(f,'lab-16.txt');
rewrite(f);
writeln('Vvedite kol-vo studentov',n,':');
write('Vvedite surname student:');
readln(school[n].surname);
write('Vvedite name student:');
readln(school[n].name];
write('Vvedite otchestvo student:');
readln(school[n].otchestvo);
write('Vvedite stependia student:');
readln(school[n].stependia);

summa:=0;
for i:=1 to n do
begin
summa:=summa+school[n].stependia;
writeln('Vvedite kol-vo mesyacev v semestre:',c);
readln(c);
summa:=summa*c;
readln;
end;