PROGRAM MENAMPILKAN RATA-RATA

Hai Sobat.. Kini aku akan sedikit menyinggung tentang sintaks program pascal. Khususnya program menampilkan rata rata.. Nih dia Sintaksnya.. Silahkan dicoba.

Program Rata_Rata;
uses crt;
var
nama,kelas,jurusan : string;
np1,np2,np3 : integer;
jumlah,rata : real;


BEGIN clrscr;
write('MASUKAN NAMA            : '); readln(nama);
write('MASUKAN KELAS           : '); readln(kelas);
write('MASUKAN JURUSAN         : '); readln(jurusan);
write('MASUKAN NILAI PRAKTEK 1 : '); readln(np1);
write('MASUKAN NILAI PRAKTEK 2 : '); readln(np2);
write('MASUKAN NILAI PRAKTEK 3 : '); readln(np3);

jumlah :=np1+np2+np3;
rata :=(np1+np2+np3) div 3;

writeln('JUMLAH NILAI : ',jumlah:4:1);
writeln('RATA-RATA    : ',rata:4:1);

writeln('Siswa dengan Nama    : ',nama);
writeln('             Kelas   : ',kelas);
writeln('             Jurusan : ',jurusan);
writeln('Mendapat nilai dengan jumlah : ',jumlah:4:1);
writeln('Dengan rata-rata             ; ',rata:4:1); readln;
readln;
END.

Maklum.. Aku masih newbie tentang program Pascal hehehe... Maaf ya sobat.. tentang ilmu yang masih sederhana ini..