Program predikat nilai

Program predikat nilai

uses wincrt;
var

nilai:integer;
ket:string[6];

begin
writeln('hasil ulangan');
write('masukkan nilai  : ');readln(nilai);
if nilai>90 then ket:='A' else
if nilai>= 80 then ket:='B' else
if nilai>= 70 then ket:='C' else
if nilai>= 60 then ket:='D' else
ket:='E';
writeln(ket);
end.