Написать программу. Дана масса в килограммах. Найдите число полных тонн в ней.

Это на Паскале.

uses crt;var m:integer;beginWriteLn('Введите массу в кг');ReadLn(m);m:=m div  1000;WriteLn(m,' тонн(ы)');Readln;End.