uses crt;
type
nilai=array[1..2,1..4] of integer;
var
data:nilai;
nm:nama;
i,j,x:integer;
rata:array[1..2,1..4] of real;
begin
clrscr;
for i:=1 to 2 do begin
write('nama siswa',i,'=');
readln(nm[i]);
for j:=1 to 4 do begin
write('nilai n',j,'=');
readln(data[i,j]);
x:=x+data[i,j];
end;
rata[i,j]:=x/4;
x:=0;
end;
writeln;
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
writeln(' Daftar Nilai');
writeln('=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
gotoxy(0,15);write('no nama');
gotoxy(13,2*4+7);
for j:=1 to 4 do begin
write(' nilai',j:2);
end;
writeln;
for i:=1 to 2 do begin
write(i:2,' ',nm[i]);
for j:=1 to 4 do begin
write(data[i,j]:11);
end;write(rata[i,j]:11:2);
if (rata[i,j]>65) then
writeln(' lulus') else
writeln(' gagal');
end;
writeln;
gotoxy(60,15);write('nA ket');
readln;
end.
