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