mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 07:29:26 +02:00
16 lines
196 B
ObjectPascal
16 lines
196 B
ObjectPascal
program doecho;
|
|
|
|
uses sysutils;
|
|
|
|
var r : integer;
|
|
|
|
begin
|
|
for r := 1 to 25 do
|
|
writeln ('Line : ', inttostr (r));
|
|
end.
|
|
$Log$
|
|
Revision 1.4 2005-02-14 17:13:18 peter
|
|
* truncate log
|
|
|
|
}
|