n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/test_break.pas

20 строк276 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

var i:integer;
begin
  for i:=1 to 10 do begin
    Writeln(i);
  	if i=5 then break;
  end;
  i:=0;
  while true do begin
    Writeln(i);
    i:=i+1;
  	if i=5 then break;
  end;
  i:=0;
  repeat
  	Writeln(i);
    i:=i+1;
  	if i=5 then break;
  until false;  
  readln;
end.