8 lines
81 B
ObjectPascal
8 lines
81 B
ObjectPascal
|
begin
|
||
|
|
var a := 0;
|
||
|
|
repeat
|
||
|
|
a += 1;
|
||
|
|
Print(a);
|
||
|
|
until a mod 6 = 0;
|
||
|
|
end.
|