mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-17 19:02:38 +02:00
30 lines
377 B
ObjectPascal
30 lines
377 B
ObjectPascal
Program Example87;
|
|
|
|
{ Program to demonstrate the Break function. }
|
|
|
|
Var I : longint;
|
|
|
|
begin
|
|
I:=0;
|
|
While I<10 Do
|
|
begin
|
|
Inc(I);
|
|
If I>5 Then
|
|
Break;
|
|
Writeln (i);
|
|
end;
|
|
I:=0;
|
|
Repeat
|
|
Inc(I);
|
|
If I>5 Then
|
|
Break;
|
|
Writeln (i);
|
|
Until I>=10;
|
|
For I:=1 to 10 do
|
|
begin
|
|
If I>5 Then
|
|
Break;
|
|
Writeln (i);
|
|
end;
|
|
end.
|