Mencari Nilai Rata-Rata

Iseng-iseng cari Foto untuk ngambil KRS buat UTS malah ketemu Source code program Pascal judulnya mencari nilai rata-rata sebenarnya sih tugas semester dua kemaren. Baru ketemu lagi source codenya yahhh ane posting aja sapa tau dari temen-temen memerlukannya tinggal copas aja dehhh dan sedikit di modifikasi yahhh biar lebih berisi programnya kaga kaya punya ane. Programnya sederhana aja kok brooo hanya butuh ketelitian dan sedikit paham code-codenya ;D ane ajah gak paham-paham dari dulu yah mungkin ane cuma bisa ngasih dikit doang ni source codenya broo...

uses wincrt; var A,B,jumlah:integer; nama,MP,NIM:string; rata_rata:real; begin write('Nama Anda :');readln(Nama); write('NIM :');readln(NIM); B:= 1; jumlah:= 0; for B:= 1 to 5 do begin write('Masukkan Mata Pelajaran Anda:');readln (MP); write('nilai :') ; readln(A); jumlah:=jumlah + A ; end; rata_rata:=jumlah/5; writeln('Total Nilai Anda =',jumlah); writeln('Nilai Rata-Rata Anda =',Rata_rata : 0 : 2); end.

Mesti diingat brooo,setiap huruf harus sama harus teliti dalam menginput codenya contoh hasil programnya seperti di bawah ini

 Untuk menambah Mata pelajarannya tinggal di ubah ajah codenya yang berwarna merah
semoga berhasil brooo kalo ada pertanyaan silahkan tinggalkan komentarnya, Terima kasih  ...