TEGLOGRAFIS.COM//////PASCAL NILAI MAHASISWA

PASCAL NILAI MAHASISWA

uses wincrt;

var

    nama, ket : string;

    nilai    : integer;

begin

    writeln('Nama:'); readln(nama);

    writeln('Nilai:'); readln(nilai);

    if(nilai)<=55 then

    ket := "TIDAK LULUS"

    else

    ket := "LULUS"

    writeln('Nama:',nama);

    writeln('Nilai:',nilai);

    writeln('Keterangan:',ket);

  end.