Маленький мальчик несколько часов наблюдал за движением двух лифтов в аэропорту и заметил, что: (1) оба лифта все время двигались с постоянной по величине скоростью, причем правый лифт в 1.3 раза быстрее левого (время на вход и выход пассажиров, разгон, торможение и изменение направления движения лифтов несущественно и считается равным 0); (2) правый лифт двигался вверх одновременно с тем, как левый лифт двигался вниз, так же долго, как правый лифт двигался вниз одновременно с тем, как левый лифт двигался вверх; (3) лифты двигались одновременно в разные стороны в течение 39 минут; (4) в конечный момент времени оба лифта вернулись в те же положения, в которых они были в начале наблюдения. определите, что дольше: оба лифта одновременно двигались вверх или оба лифта одновременно двигались вниз и на сколько минут?

Общее
Можно посылать текст
Можно посылать вложение типа фотографии, если хватает места/веса
Указывается адрес получателя и адрес отправителя
Может быть не доставлено из за неверного адреса или из за технических сбоев.
Можно перенаправить письмо
Дата прохождения через почтовую службу может служить подтверждением времени в различных спорах и разбирательствах
Возможно использовать шифрование

Плюсы бумажной почты
Письмо и вложения реальны и не требуют спец средств для прочтения
Очень разнообразные доставки - голубиная почта, курьерская почта и тд
Количество спама обычно меньше чем в электронной почте
Можно послать письмо без указания обратного адреса

Плюсы электронной почты
Скорость доставки
Бесплатно
Значительно легче шифровать/разшифровать, чем бумажную
Возможность получить подтверждение о получении, прочтении
Возможность настройки автоматического ответа (например если в отпуске)
Возможность отослать одно письмо множеству получателей
Копия отправленного письма остается у отправителя
Получить почту можно из любой точки интернета, а не в определенном месте (почтовый ящик)
Можно иметь множество электронных почтовых ящиков

Думаю этого хватит

Const m=4; n=5;
var 
a:array[1..m,1..n] of real;
i,j:integer; max:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(10);
   write(a[i,j]:5:1);
  end;
  writeln;
 end;
max:=a[1,1];
for i:=1 to m do
 for j:=1 to n do
  if a[i,j]>max then max:=a[i,j];
writeln('max = ',max);
for i:=1 to m do
 for j:=1 to n do
  if a[i,j]=max then a[i,j]:=a[i,j]/2;
writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do write(a[i,j]:5:1);
 writeln;
 end;
end.

Пример:
Исходный массив:
  1.0  9.0  1.0  9.0  8.0
  4.0  4.0  5.0  9.0  9.0
  6.0  3.0  6.0  0.0  6.0
  6.0  7.0  3.0  6.0  9.0
max = 9
Полученный массив:
  1.0  4.5  1.0  4.5  8.0
  4.0  4.0  5.0  4.5  4.5
  6.0  3.0  6.0  0.0  6.0
  6.0  7.0  3.0  6.0  4.5