Решить, либо скиньте как решать такие с примерами1. абоненты некоторой сети применяют цифровую подпись по стандарту гост р34.10-94 с общими параметрами p = 47, q = 23, a = 37. найдите открытый ключ абонента петрова для х = 84. абоненты некоторой сети применяют цифровую подпись по алгоритму эль-гамаля с общими параметрами р = 17, а = 3. найдите открытый ключ абонента петрова и вычислите его цифровую подпись для х = 3, k = 7, m = 11.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4

var a,b,c: real; beginwriteln('введите данные о катетах'); readln(a,b); c: =1/2*a*b; writeln('площадь= ',c: 0: 2); readlnend.

  если паскаль абс, то предпоследнюю строку не обязательно.