program predikat;
uses crt;

var
    ipk:Real;

begin
  clrscr;
  Write('Masukkan IPK Mahasiswa: ');
  ReadLn(ipk);

    // selection codition
    writeln;

    // jika ipk lebih dari 2.0 dan kurang dari 2.5, tampilkan 'predikat baik'
    if (ipk >= 2.0) AND (ipk < 2.5) then
    begin
        WriteLn('Predikat Baik');
    end

    // jika ipk lebih dari 2.5 dan kurang dari 3.0, tampilkan 'predikat memuaskan'
    else if (ipk >= 2.5) AND (ipk < 3.0) then
    begin
        WriteLn('Predikat Memuaskan');
    end

    // jika ipk lebih dari 3.0 dan kurang dari 3.5, tampilkan 'predikat sangat memuaskan'
    else if (ipk >= 3.0) AND (ipk < 3.5) then
    begin
        WriteLn('Predikat Sangat Memuaskan');
    end

    // jika ipk lebih dari 3.5 dan kurang dari 4.0, tampilkan 'cumlaud'
    else if (ipk >= 3.5) AND (ipk <= 4.0) then
    begin
        WriteLn('Cumlaud');
    end

    // tampilkan ketika salah memasukkan ipk
    else
        WriteLn('Anda salah memasukkan nilai Mahasiswa');

  ReadLn;
end.