Menentukan Nilai IP dengan Pascal

Ini nih bagaimana cara mudah menghitung IP kita menggunakan pascal:

program mata_kuliah_PIK_terbaru;
uses wincrt;
var n: integer;
begin
writeln ('menentukan nilai PIK');
readln (n);
if n>100 then writeln ('cek pintere awakmu cak !!')
else if n>80 then writeln ('A')
else if n>75 then writeln ('AB')
else if n>70 then writeln ('B')
else if n>65 then writeln ('BC')
else if n>60 then writeln ('C')
else if n>40 then writeln ('D')
else if n>=0 then writeln ('E')
else writeln('apaan tuh ??');
end.