paskal 2

paskal 2 sebuah program yang berjalan pada paskal ini program menghitung sebuah nilai 

program tugas2;

uses crt;

var N :integer;

Nilai : string [20];

begin

clrscr;

write('Masukan nilai anda :');

readln(N);

if N > 80 then Nilai :='A'

else if 70 <= N then Nilai :='B'

else if 60 <= N then Nilai :='C'

else if 40 <= N then Nilai :='D'

else Nilai :='E';

writeln (Nilai);

readln;

end.