[NIch]

Для начала код

Код:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 i : integer;
begin
 for i := 1 to 25 do
 begin
  writeln (i, i+24.5:10:1);
 end;
 readln;
end.

Далее чуть теории
http://www.delphibasics.ru/WriteLn.php