编成序建立某班25人的数学课程成绩表，要求用数组类型和记录类型，其成绩表格式如下： 
姓名　　性别　　平时成绩　　期中考试　　期终考试　　总评成绩 
张良　　男　　　 　90          85          92 　        ? 
王心　　男　　　 　70          82          71         　? 
…… 
李英　　女　　　   82          84          75    　     ? 
　其中总评成绩=平时成绩×20％＋期中考试×30％＋期终考试×％50。

program chengjibiao;
const n=3;
type dates=record
           name:string[1];
           sex :string[1];
           expu:integer;
           expm:integer;
           expe:integer;
           expa:real;
           end;
var   date:array [1..n] of dates;
      i:integer ;
begin
 for i:=1 to n do
 with date[i] do
  readln (name,sex,expu,expm,expe);
 writeln ('name':17,'sex':5,'expu':4,'expm':4,'expe':4,'expm':5);
 for i:=1 to n do
 with date[i] do
  writeln (name:17,sex:5,expu:4,expm:4,expe:4,expu*0.2+expm*0.3+expe*0.5:5);
 readln;
end.