Помогите!!)) Составить в программе Pascal. задачу: перевести килограммы в граммы.

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