Напишите программки для решения задач.Используйте операции div и mod.Задано трёх значное

var

 n, n1, n2, n3: Integer;

begin

   Write ('Введите трехзначное число: ');

   ReadLn (n);

   if not ((n gt;= 100) and (n lt;= 999)) then begin

     Writeln ('Число не является трехзначным!');

     Exit;

   end;

   n1 := n div 100;

   n2 := (n div 10) mod 10;

   n3 := n mod 10;

   Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));

end;