6 lines
84 B
Ada
6 lines
84 B
Ada
|
loop
|
||
|
|
Value := Value + 1;
|
||
|
|
Put (Value);
|
||
|
|
exit when Value mod 6 = 0;
|
||
|
|
end loop;
|