NOT ARALIĞINA GÖRE KARŞILIĞI VEREN PROGRAM

uses crt;
var
    notu:integer;
begin
    clrscr;
    repeat
    write('notunuzu giriniz:');readln(notu);
    until  notu>=0;
    case  notu of
    0..25:    writeln('SIFIR');
    25..45:    writeln('BIR');
    45..55:   writeln('IKI');
    55..70:   writeln('š€');
    70..85:   writeln('D™RT');
    else  writeln('BES');
    end;
    readln;
    end.