fpc/fcl/tests/doecho.pp
2002-09-07 15:15:22 +00:00

16 lines
215 B
ObjectPascal

program doecho;
uses sysutils;
var r : integer;
begin
for r := 1 to 25 do
writeln ('Line : ', inttostr (r));
end.
$Log$
Revision 1.3 2002-09-07 15:15:28 peter
* old logs removed and tabs fixed
}