Напечатать таблицу соответствия между весом в кг и весом в граммах для значений от 5 до 50 кг с шагом 5 ко(pascal)

//PascalABC.NET 3.1 сборка 1200
begin
  for var i := 1 to 10 do
    writeln(5 * i, ' кг = ', 5000 * i, ' г');
end.