На 2 запитання дайте відповідь

var a, b, c, i, j, n, ch:integer;
      s, p:array [1..10000] of integer;
begin
   n:=30;
   for i:=1 to n do
      s[i]:=random(64000)-32000;
      writeln('Данный массив');
   for i:=1 to n do
      write (s[i],' ');
   a:=s[1];
   for i:=1 to n do
      if s[i]>a then
         a:=s[i];
   for i:=1 to n do
       if s[i]=a then
          begin
          j:=j+1;
          p[j]:=i;
          end;
    c:=j;
    writeln;
    writeln('Полученный массив');
    for i:=1 to n do
       begin
       ch:=0;
       for j:=1 to c do
          if i=p[j] then inc(ch);
       if ch=0 then write (s[i],' ');
       end;
end.       
P.S. Надеюсь на благодарность и лучший ответ.

program название;

var a, b, s, p:integer;

begin

writeln ('Введите число a');

readln (a);

writeln ('Введите число b');

readln (b);

s:=a+b;

p:=a*b;

writeln ('Сумма чисел равна:', s);

writeln (Произведение чисел равно:', p);

end.

Объяснение:

/ - деление.

* - умножение.

sqrt - квадратный корень (всё что будет в корне заключается в скобки).

sqr - квадрат (всё что возводится в квадрат заключается в скобки).

В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).

Переменной s присваивается сумма переменных a и b.

Переменной p присваивается произведение переменных a и b.

Затем, выводится ответ.