11 lines
116 B
Text
11 lines
116 B
Text
var i;
|
|
begin
|
|
i := 0;
|
|
i := i + 1;
|
|
! i;
|
|
while (i / 6) * 6 <> i do
|
|
begin
|
|
i := i + 1;
|
|
! i
|
|
end;
|
|
end.
|