Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . 35 35.5 34.8 в паскале

Var i:integer;
begin
  for i := 25 to 35 do
    writeln(i, ' ', i + 0.5, ' ', i - 0.2);
end.