contoh program if then else bertingkat

 program nilai_index;

uses wincrt;

var

nilai:real;

index:char;

begin

writeln('masukkan nilanya');

readln(nilai);

if nilai >=80 then 

index:='A'

else

if then >=70 then 

index:='B'

else

if then >=60 then

index:='C'

else

if then >=50 then

index:='D'

else 

index:='E'

write(index);

end.

www.makelarsapi.blogspot.com