1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var wert : integer;
    Note : string;
begin
  wert:=StrToInt(Edit1.Text);
  Case wert of
  0..20 : Note:= 6;
  21..27 : Note:= 5-;
  28..34 : Note:= 5 ;
  35..40 : Note:= 5+;
  41..45 : Note:= 4-;
  46..50 : Note:= 4 ;
  51..55 : Note:= 4+;
  56..60 : Note:= 3-;
  61..65 : Note:= 3 ;
  66..70 : Note:= 3+;
  71..75 : Note:= 2-;
  76..80 : Note:= 2 ;
  81..85 : Note:= 2+;
  86..90 : Note:= 1-;
  91..95 : Note:= 1 ;
  96..100 : Note:= 1+;
  end;
  Memo1.Lines.Add(Note);