Testauswertungsprogramm

[FreePascal]

Delphi-Quellcode:

program testauswertung 
uses crt; 
var nr, summe, punkte:integer; 


begin 
     clrscr; 
     summe:=0; 
              FOR nr:=1 TO 4 DO 
              begin 
                  writeln('Aufgabe: ',nr); 
                  readln(punkte); 
                  summe:=summe+punkte; 
              end; 
writeln('Gesamtpunktezahl: ',summe); 
IF summe=>24<=29 OR summe=>29<=37 OR summe=>37<=44 OR summe=<44
THEN 
begin
     CASE summe OF
     >24<=29:begin
    writeln('Genügend');
      end;
      >29<=37:begin
      writeln('Befriedigend');
      end;
      >37<=44:begin
      writeln('GUt');
      end;
      >44:begin
      writeln('Sehr gut');
      end;

end;

end 
ELSE
writeln('Falsche Eingabe.Progr.abbr.');
readln;
end.

So, umgeschrieben.