Canon/open_set/61_many_locals2.pas
2024-03-09 20:11:27 +08:00

73 lines
1.1 KiB
ObjectPascal

program main;
var n,ret:integer;
b:integer;
a0,a1,a2,a3,a4,a5,a6,a7,a8,a9:integer;
a10,a11,a12,a13,a14,a15,a16,a17,a18,a19:integer;
a20,a21,a22,a23,a24,a25,a26,a27,a28,a29:integer;
begin
b := 5;
ret := 0;
a0 := 0;
a1 := a0 + 1;
a2 := a1 + 1;
a3 := a2 + 1;
a4 := a3 + 1;
a5 := a4 + 1;
a6 := a5 + 1;
a7 := a6 + 1;
a8 := a7 + 1;
a9 := a8 + 1;
a10 := a9 + 1;
a11 := a10 + 1;
a12 := a11 + 1;
a13 := a12 + 1;
a14 := a13 + 1;
a15 := a14 + 1;
a16 := a15 + 1;
a17 := a16 + 1;
a18 := a17 + 1;
a19 := a18 + 1;
a20 := a19 + 1;
a21 := a20 + 1;
a22 := a21 + 1;
a23 := a22 + 1;
a24 := a23 + 1;
a25 := a24 + 1;
a26 := a25 + 1;
a27 := a26 + 1;
a28 := a27 + 1;
a29 := a28 + 1;
write(a0);
write(a1);
write(a2);
write(a3);
write(a4);
write(a5);
write(a6);
write(a7);
write(a8);
write(a9);
write(a10);
write(a11);
write(a12);
write(a13);
write(a14);
write(a15);
write(a16);
write(a17);
write(a18);
write(a19);
write(a20);
write(a21);
write(a22);
write(a23);
write(a24);
write(a25);
write(a26);
write(a27);
write(a28);
write(a29);
write(b);
ret := a25;
write(ret);
end.