21 lines
218 B
ObjectPascal
21 lines
218 B
ObjectPascal
var
|
|
x: Integer = 5;
|
|
|
|
label
|
|
positive, negative, both;
|
|
|
|
begin
|
|
if (x > 0) then
|
|
goto positive
|
|
else
|
|
goto negative;
|
|
|
|
positive:
|
|
writeln('pos');
|
|
goto both;
|
|
|
|
negative:
|
|
writeln('neg');
|
|
both:
|
|
readln;
|
|
end.
|