program kelulusan;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.
NAMA :WENA WANTI
NIM :201712051
Out Of Topic Show Konversi KodeHide Konversi Kode Show EmoticonHide Emoticon