Составьте алгоритм для нахождения количества полных тон, килограммов, граммов, при данной массе m в граммах. например, 3056784 г=3 т. 56 кг 784 г.

Var
  M, tons, kilos, grams: integer;
begin
  write('Введите массу: ');
  read(M);
  // чтобы найти кол-во тонн, разделим нацело введенную массу
  // на 1000000
  tons := M div 1000000;  // div - деление нацело
  // чтобы найти кол-во килограмм, сначала возьмем остаток 
  // деления на 100000, затем полученное число разделим
  // нацело на 1000.
  kilos := (M mod 100000) div 1000;  // mod - остаток от деления
  // граммы - последние 3 цифры введенного числа
  grams := M mod 1000;
  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.

А вот и ошибочка!  Вот алгоритм в исправленном виде!

var  M, tons, kilos, grams: integer;begin  write('Введите массу: ');  read(M);  // чтобы найти кол-во тонн, разделим нацело введенную массу  // на 1000000  tons := M div 1000000;  // div - деление нацело  // чтобы найти кол-во килограмм, сначала возьмем остаток   // деления на 100000, затем полученное число разделим   // нацело на 1000.  kilos := (M mod 100000) div 1000;  // mod - остаток от деления  // граммы - последние 3 цифры введенного числа  grams := M mod 1000;  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');end.