1 2 3 4 5 6 7 8 9 10
program doecho; uses sysutils; var r : integer; begin for r := 1 to 25 do writeln ('Line : ', inttostr (r)); end.