15 lines
168 B
ObjectPascal
15 lines
168 B
ObjectPascal
label A,B,C;
|
|
|
|
var
|
|
i,j: integer;
|
|
t,t1: real := 2+3;
|
|
begin
|
|
write(1+i,(t+2)*3);
|
|
i := 5;
|
|
begin
|
|
i := i + 1;
|
|
goto A;
|
|
j := 2;
|
|
end;
|
|
A: write(2);
|
|
end. |