Прошу. самостоятельная: ( 1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм. 2. составьте алгоритм попадания точки в третью четверть окружности.

1. var m,n: real; begin writeln ('введите 2 числа: '); readln (m,n); if m> n then begin m: =m-3; n: =n*2; writeln ('m = ',m,' n = ',n) end else begin n: =n-3; m: =m*2; writeln ('m = ',m,' n = ',n); end; end.а второе  я не знаю как решить(

Const   n = 5; var   a,b: array[1..n,1..n] of integer;   c,r: array[1..n] of integer;   i, j: integer; begin   randomize;   { инициализация }   writeln('матрица a');   for i : = 1 to n do   begin       for j: =1 to n do       begin           a[i,j]: = random(51);           write(a[i,j]: 3)       end;       writeln   end;   writeln('матрица b');   for i : = 1 to n do   begin       for j: =1 to n do       begin           b[i,j]: = random(51);           write(b[i,j]: 3)       end;       writeln   end;   writeln('вектор c');   for i : = 1 to n do   begin       c[i]: = random(51);       write(c[i]: 3)   end;   writeln;   { вычисление и вывод }   writeln('вектор результата');   for i: =1 to n do   begin       r[i]: =0;       for j: =1 to n do r[i]: =r[i]+c[j]*(5*a[i,j]+b[i,j]);       write(r[i],' ')   end end. тестовое решение: матрица a   44 49 29 34  2   48  1 33 10 24   43 48 29  4 50   2 14  5 25 21   39 31 19 12 23 матрица b   42 32 26 10 37   35 29  6 49 43   42 44 10 32 11   32 20  3 11 41   22 40  9 35 10 вектор c   39  9 23 45 44 вектор результата 26812 26591 29968 15636 22385

Const   n = 20; var   a: array[1..n] of integer;   b: div 3)+1] of integer;   i, m: integer; begin   randomize;   writeln('элементы массива');   m : = 0;   for i : = 1 to n do   begin       a[i]: = random(155)-55;       write(a[i]: 4);       if (a[i]> 51) and (i mod 3=0) then       begin m: =m+1; b[m]: =a[i] end   end;   writeln;   if m> 0 then begin       writeln('элементы сформированного массива');       for i : = 1 to m do write(b[i]: 3);       writeln   end   else writeln('нет элементов с индексом, кратным 3, больших 51') end. тестовое решение: элементы массива   57  -3  79 -49  30  87 -15  49 -38 -49 -45 -38  55 -27  48 -29  56  63  79  -2 элементы сформированного массива   79 87 63