Hallo,
Case waer einfacher(wie schon vor mir geschrieben)
Delphi-Quellcode:
writeln('Gesamtpunktezahl: ',summe);
Case Summe of
23..29:writeln('Sie haben ein Genügend erreicht!');
30..37:writeln('Sie haben ein Befriedigend erreicht!');
38..44:writeln('Sie haben ein Gut erreicht!');
45..50:writeln('Sie haben ein Sehr Gut erreicht!');
end;
readln;
end.