PROGRAM UAN

Program UAN; {BAGAS N DAN BAGUS F}
Uses crt;
Var NilaiMat,NilaiInd,NilaiIng:integer;
    rata:real;
    Lulus:boolean;
begin
        clrscr;
        Write('Masukkan nilai Mat= ');
        readln(NilaiMat);
        Write('Masukkan nilai B.Ind= ');
        Readln(NilaiInd);
        Write('Masukkan nilai B.Ing= ');
        Readln(NilaiIng);
        rata:=(NilaiMat+NilaiInd+NilaiIng)/3;
        Lulus:=(rata>=60);
        writeln('Rata-rata nilai UAN adalah',rata);
        Writeln('Status kelulusan anda',Lulus);
        readln;
end.