Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших некоторой величины - Pascal ABC

Формулировка задачи:

Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших некоторой величины t. Заранее спасибо

Решение задачи: «Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших некоторой величины»

Листинг программы

uses crt;
const n=15;
var a:array[1..n] of integer;
    s,i,k:integer;
    d:longint;
begin
 writeln('ГЊГ*Г±Г±ГЁГў :');
  for i:=1 to n do
   begin
    a[i]:=-10+random(20);
    write(a[i]:4);
   end;
 writeln;
  write('k=');
   readln(k);
  s:=0;d:=1;
 for i:=1 to n do
  begin
   if a[i]>k then
    begin
     s:=s+a[i];
     d:=d*a[i];
    end;
  end;
writeln('Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ* ГЎГ®Г«ГјГёГЁГµ Г§Г* ',k,' = ',s);
 writeln('ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГў ГЎГ®Г«ГјГёГЁГµ Г§Г* ',k,' = ',d);
end.

Объяснение кода листинга программы

Объявлены переменные: — s, i, k — целочисленные переменные; — d — переменная типа longint; — a — массив из 15 целых чисел.
Выводится сообщение «ГЊГ*Г±Г±ГЁГў :» и через пробел выводится содержимое массива a.
Пользователю предлагается ввести число k.
Переменная s инициализируется нулём, а переменная d единицей.
Происходит обход массива a с помощью цикла for.
Если элемент массива a[i] больше k, то к переменной s прибавляется a[i], а к переменной d прибавляется произведение a[i] и d.
Выводятся результаты: сумма элементов массива a, больших k — s, и произведение элементов массива a, больших k — d.