17 lines
153 B
ObjectPascal
17 lines
153 B
ObjectPascal
|
program Loop;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
var
|
||
|
|
I: Integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
I:= 0;
|
||
|
|
repeat
|
||
|
|
Inc(I);
|
||
|
|
Write(I:2);
|
||
|
|
until I mod 6 = 0;
|
||
|
|
Writeln;
|
||
|
|
Readln;
|
||
|
|
end.
|