73 lines
1.1 KiB
ObjectPascal
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. |