Der TP Befehl "break" beendet eine laufende Schleife.
procedure Break;
var a,y:integer;
begin for y:=1 to 20 do begin readln(a); if a=5 then break; end; end.
Seitenkategorien: Keine Unit