Program Bilangan_Genap_Ganjil;
uses wincrt;
var
   bilangan:integer;
begin
     write('Masukan Bilangan    : '); readln(bilangan);
     Writeln(' ');
     if bilangan mod 2=0 then write(bilangan,' adalah Bilangan Genap')
     else write(bilangan,' adalah Bukan Bilangan Genap');
end.

program menentukan_kelulusan;
uses wincrt;
var
nilai:real;
nm:string;
ab,tgs,uts,uas:integer;
n:integer;
begin
write('masukan nama:');read(nm);
write('masukan nilai absensi:');read(ab);
write('masukan nilai tugas:');read(tgs);
write('masukan nilai uts:');read (uts);
write('masukan nilai uas:');read (uas);
writeln;
nilai:=(ab*20/100)+(tgs*15/100)+(uts*25/100)+(uas*40/100);
Write('hasil nilainya adalah=',round(nilai));
writeln;
writeln;

begin
n:=round(nilai);
if (nilai>=85) then
writeln('grade A:')else
if (nilai>=75)then
writeln ('grade B:')else
if (nilai>=65) then
writeln('grade C:')else
if (nilai>=55)then
writeln('grade D:')else
writeln('grade E:');
begin
case n of
0..64     :Writeln ('TIDAK LULUS');
65..74    :writeln ('LULUS CUKUP');
75..84    :writeln('LULUS BAIK');
85..100   :writeln ('LULUS MEMUASKAN');
end;
end;
end;
end.