По данному псевдокоду составьте условие напишите программу и проверьте решение на компьютере. , заранее : )

1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    PRINT , S
NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
    FOR J = 1 TO 3
        A(I, J) = INT(RND * 5)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    P = P * S
    PRINT
NEXT I
PRINT
PRINT "P="; P

2 
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
    A(I) = INT(RND * 20) - 10
    PRINT A(I); " ";
    IF A(I) > O THEN
        S = S + A(I)
        P = P * A(I)
        N = N + 1
    END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N

Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.