Напечатать таблицу соответствия меж весом в фунтах и весом в кг

Блок-схема - в прилагаемом файле.
// PascalABC.NET 3.3

begin
  writeln('Фунты   кг');
  var x:=Range(10,100,5).Select(p-gt;p/10);
  x.Foreach(p-gt;Writeln(p:4:1,p*400/1000:8:3));
end.

Результат:
Фунты   кг
 1.0   0.400
 1.5   0.600
 2.0   0.800
 2.5   1.000
...
 9.0   3.600
 9.5   3.800
10.0   4.000