Напишіть процедуру Click для кнопки і намалюйте форму дляпроекту:Проект для обчислення суми n чисел, перше з яких дорівнює x, а кожненаступне на 10 більше від попереднього. На формі два поля (Edit1, Edit2)для введення n та x, кнопка (Button1) для якої виконується процедура, напис(Label1) на який виводиться результат. Використовуйте цикл з лічильником.будьте ласка до ть ​

Полезные законы:

двойного отрицания: НЕ(НЕ(x)) = xраспределительный: (A v B) & C = A & C v B & Cпереместительный: A & B = B & A, A v B = B v Aзакон де Моргана: HE(A v B) = HE(A) & HE(B)правила операций с константами: A & 1 = A, A v 0 = A

А & В v A & НЕ (В) = A & (B v НЕ(B)) = A & 1 = A

(A v В) & (A v HE (В)) = A & (A v HE(B)) v B & (A v HE(B)) = A & A v A & HE(B) v B & A v B & HE(B) = A v A & HE(B) v A & B v 0 = A & (1 v HE(B) v B) = A & 1 = A

HE(HE(X) v HE(Y)) = HE(HE(X)) & HE(HE(Y)) = X & Y

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.