mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-29 20:38:38 +02:00
90adaffa46
* Upgraded gdb debugger to gdb/mi debugger * Set default value for autpopoup * Added Clear popup to debugger output window git-svn-id: trunk@862 -
26 lines
339 B
ObjectPascal
26 lines
339 B
ObjectPascal
program testcntr;
|
|
|
|
uses
|
|
TestWait,
|
|
SysUtils;
|
|
|
|
var
|
|
m, n, x : Cardinal;
|
|
begin
|
|
m :=0;
|
|
x := 0;
|
|
while x < 3 do
|
|
begin
|
|
repeat
|
|
Write(Format('[%.10d] ', [m]));
|
|
Inc(m);
|
|
for n := 0 to 79 do
|
|
begin
|
|
Write('*');
|
|
end;
|
|
WriteLN;
|
|
until m mod 10 = 0;
|
|
Wait(10);
|
|
inc(x);
|
|
end;
|
|
end. |