16 lines
296 B
ObjectPascal
16 lines
296 B
ObjectPascal
unit u_for1;
|
|
begin
|
|
var s := 0;
|
|
for var i := 1 to 5 do
|
|
for var j := 1 to 5 do
|
|
for var k := 1 to 5 do
|
|
for var l := 1 to 5 do
|
|
for var m := 1 to 5 do
|
|
for var n := 1 to 5 do
|
|
for var o := 1 to 5 do
|
|
for var p := 1 to 5 do
|
|
for var q := 1 to 5 do
|
|
for var r := 1 to 5 do
|
|
Inc(s);
|
|
assert(s=Power(5,10));
|
|
end. |