)) составить в программе pascal. : перевести килограммы в граммы.

Var  a: real;
begin
  write('Введите количество килограмм:');
  read(a);
  write(a, ' килограмм = ', a * 1000, ' грамм');
end.