Дана масса автомобиля в килограмах 5145кг. определите сколько тон и сколько килограмов весит автомобиль в pascal abc

Вводи в PascaABC:

program massCounter; //Специально для lolpas1234
var kg,t :integer;
Begin
  kg:=5145 mod 1000;
  t:=5145 div 1000;
  WriteLn('Автомобиль весит ', t, ' тонн и ', kg, ' килограмм');
End. //Специально для lolpas1234