Модем передающий данные со скоростью 10800 бит/с​

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (n,m):= ReadInteger2('n, m -> ');
var a:= MatrRandom(m,n);Writeln('Исходная матрица:');a.Println;
dec(n);dec(m);for var i:= 0 to m do
begin
  swap(a[i, a.Row(i).IndexMin],a[i, n]);
  swap(a[i, a.Row(i).IndexMax],a[i, 0]);
end;
Writeln('Конечная матрица:');
a.Print
end.

Пример:
n, m ->  5 6
Исходная матрица:
  99   9  30  83  11
  89  13  70  50  54
  43  59  22  13  89
  67  27  48  72  41
  63  62   5  58  71
  45  35  60   3  95
Конечная матрица:
  99  11  30  83   9
  89  54  70  50  13
  89  59  22  43  13
  72  41  48  67  27
  71  62  63  58   5
  95  35  60  45   3

Я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2

 

a) a*2+b*2;

b) a*b+b*c;
c) a+b -245*(a+b)*2*c;

4. Program Avgarif;

     Uses crt;

      var a,b,c,d,res:real;

      begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

             write('Введите 3 число: ');

            readln(c);

            write('Введите 4 число: ');

            readln(d);

          res:=(a+b+c+d)/4;

          writeln('Среднее арифметическое:',res);

          readkey;

 

      end.   

 

 

5. Program Kvadrat;

     Uses crt;

     var a,p: real;

     begin

           clrscr; 

           write('Введите сторону квадрата а: ');

            readln(a);  

           p:=4*a;

            writeln('Периметр квадрата: ',p);       

            readkey;

    end.   

 

6.Program Prjamoug; 

     Uses crt;

     var a,b,p,s: real;

     begin

 

          clrscr;

           write('Введите 1 сторону прямоуголника: ');

            readln(a);

            write('Введите 2  сторону прямоуголника : ');

            readln(b);

 

           s:=a*b;

           p:=2*a+2*b;

 

          writeln('Периметр прямоугольника: ',p); 

 

          writeln('Площадь  прямоугольника : ',s);         

       readkey;

    end.   

 

 

 7. Program Arifm;

       Uses crt;

       var a,b,r,s,p,d: real;  

begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

           p:=a*b;

           s:=a+b;

 

           d:=a/b;

           r:=a-b;

          writeln('Произведение a и b: ',p); 

          writeln('Сумма  a и b  : ',s);

         writeln('Частное a и b: ',d); 

          writeln('Разность  a и b  : ',r);     

    readkey;

   end.