24 lines
385 B
Plaintext
24 lines
385 B
Plaintext
begin
|
|
integer array eck[1:1000];
|
|
integer i, j;
|
|
|
|
for i := 1 step 1 until 1000 do
|
|
eck[i] := 0;
|
|
|
|
for i := 1 step 1 until 999 do
|
|
begin
|
|
j := i - 1;
|
|
while j > 0 and eck[i] <> eck[j] do
|
|
j := j - 1;
|
|
if j <> 0 then
|
|
eck[i+1] := i - j;
|
|
end;
|
|
|
|
for i := 1 step 1 until 10 do
|
|
writeon(eck[i]);
|
|
write("");
|
|
for i := 991 step 1 until 1000 do
|
|
writeon(eck[i]);
|
|
|
|
end
|