17 lines
182 B
ObjectPascal
17 lines
182 B
ObjectPascal
label
|
|
tryAgain, finished;
|
|
|
|
begin
|
|
x := 0;
|
|
|
|
try
|
|
Writeln(x);
|
|
inc(x);
|
|
if (x < 10) then
|
|
goto tryAgain;
|
|
finally
|
|
goto finished
|
|
end;
|
|
finished:
|
|
readln;
|
|
end.
|