tugas kursuskomputer

program kursuskomputer;
uses wincrt;
var nama,namamaks:string;
cd,vb,php,b,j:real;
jumcd,jumvb,jumphp,jumb,jumj:real;
jumlahnilai,ratacd,ratavb,rataphp,ratab,rataj:real;
banyaksiswa:byte;
nilai,nilaimaks:real;
begin
clrscr;
{inisialisasi}
banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
jumcd:=0;jumvb:=0;jumphp:=0;jumb:=0;jumj:=0;
namamaks:=' ';
write('nama siswa (isi "x" jika selesai) : ');readln(nama);
while nama <> 'x' do
begin
write('nilai corel draw : ');readln(cd);
write('nilai visual basic : ');readln(vb);
write('nilai php : ');readln(php);
write('nilai blog : ');readln(b);
write('nilai joomla : ');readln(j);
banyaksiswa:=banyaksiswa+1;
jumcd:=jumcd+cd;jumvb:=jumvb+vb;jumphp:=jumphp+php;
jumb:=jumb+b;jumj:=j;
jumlahnilai:=jumlahnilai+cd+vb+php+b+j;

{mancari nilai maksimum};
if jumlahnilai > nilaimaks
then begin
nilaimaks:=jumlahnilai;
namamaks:=nama;
end;

writeln;write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
end;
ratacd:=cd/banyaksiswa;
ratavb:=vb/banyaksiswa;
rataphp:=php/banyaksiswa;
ratab:=b/banyaksiswa;
rataj:=j/banyaksiswa;
writeln('nilai rata-rata corel draw : ', ratacd:6:2);
writeln('nilai rata-rata visual basic : ', ratavb:6:2);
writeln('nilai rata-rata php : ', rataphp:6:2);
writeln('nilai rata-rata blog : ', ratab:6:2);
  writeln('nilai rata-rata joomla : ', rataj:6:2);
writeln('nilai maksimum : ', nilaimaks:6:2);
writeln('nama siswa juara 1 : ', namamaks);
  end.