Tugas Algoritma

Buat temen-temen yang belum dapet jawabannya...
ane cuma sekedar sharing aja nih...
sebagai temen satu angkatan........

tolong blog ini di sebarin ke temen - temen ya..
biar rame....
 hehehehehehee.....

ga usah pake basa-basi lagi nih...
ane kasih aja source code programnya...

Uses Wincrt;

Var n,x,i,tot:integer;
    rata:real;
    tanya:char;

label lagi;

Begin
     lagi:
     clrscr;
     writeln('++++++++++++++++++++++++++++');
     Writeln('Program Menghitung Rata-Rata');
     Writeln('++++++++++++++++++++++++++++');
     Writeln;
     Write('Masukkan Jumlah Bilangan: ');readln(n);
     Writeln;
     tot:=0;
      For i:= 1 to n do
        Begin
         write('Masukkan bilangan ke-',i,'= '); Readln(x);
         tot:=tot+x;
        End;
      rata:=tot/n;
      Writeln;
      writeln('Rata-ratanya');
      writeln('++++++++++++++++++++++++++++');
      writeln('***************************');
      Writeln('Total Bilangan: ',tot:6);
      Writeln('Rata-Rata : ',rata:6:2);
      writeln;
      writeln('Mau menghitung lagi ?[y/t] = ');readln(tanya);
      writeln('***************************');
      if (tanya='y') or (tanya='Y') then
         goto lagi
      else
          donewincrt;
End.

gimana mudah bukan....
ga repot kok ... 

semoga sukses