15 lines
283 B
ObjectPascal
15 lines
283 B
ObjectPascal
|
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.
|