Программы позволяют создавать
более сложные презентации, которые включают в себя
аудио- и видеофрагменты.
Многие презентационные программы имеют как РС-, так и
-версии.
В последнее время ПОЯВИЛИСЬ Новые инструменты для
презентации с поддержкой
-анимации.
Лучшей программой для презентации на сегодняшний день,
По мнению http://presentation-software-
review.toptenreviews.com/, является
ПРОВЕРИТЬ​

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.