Die Suche hat 4 Ergebnisse ergeben.

Toxman, break, halt und stop sollte man vermeiden, da es unsauberes programmieren ist. Man sollte das Problem auf höherer Ebene lösen.

Wie kurellajunior schon sagte wenn man den berreich überschreitet fängts von hinten wieder an. Integer zahlen gehen von -32768 bis 32767

Die prozedur writeln kann auch Zahlen ausgeben. Sie müßen nicht extra vorher in string
umgewandelt werden.

var
a,b,anz,i,s : INTEGER;
gesamt : REAL;

BEGIN
clrscr;
g ...

Probiers mal so:

n := 10;
for n := 1 to n do

:-/