задания 4.5.6 4.5.7
Запишите формулы для Паскаля.

По версии американского ученого Бертольда Уллмана знак @ был изобретен средневековыми монахами для сокращения латинского слова «ad», которое часто употреблялось в качестве универсального слова, означающего «на», «в», «в отношении» и т.п.

В испанском, португальском, французском языках название символа происходит от слова «арроба» – староиспанская мера веса, ок. 15 кг., которая сокращённо обозначалась на письме знаком @.

Современное официальное название символа «коммерческое at» берёт своё происхождение из торговых расчетов, например, 7 widgets @ $2 each = $14, что переводится как 7 шт. по 2$ = 14$. Поскольку этот символ применялся в торговле, он был размещен на клавиатурахпервых пишущих машинок и оттуда перекочевал на клавиатуру компьютера.

В интернет собака пришла благодаря создателю электронной почты Томлинсону. Он выбрал его как знак на клавиатуре, который не мог встретиться ни в одном имени и вызвать путаницу, в качестве разделителя для имени пользователя и сервера электронной почты. Первым сетевым адресом был адрес [email protected] в сети Arpanet.

Const n=4;
var 
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n div 2 do
 for j:=i to n-i do
  begin
    b:=a[i,j];
    a[i,j]:=a[n-j+1,i];
    a[n-j+1,i]:=a[n-i+1,n-j+1];
    a[n-i+1,n-j+1]:=a[j,n-i+1];
    a[j,n-i+1]:=b;
  end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  57  32  69  17
  87  33  85  22
  89  80  59  13
  60  93  96  56
Полученный массив:
  60  89  87  57
  93  80  33  32
  96  59  85  69
  56  13  22  17