const
maxsize = 100;
var
i, n, temp: integer;
a: array[1..maxsize] of integer;
begin
i := 1;
write('Введите количество элементов последовательности: ');
read(n);
writeln('Вводите элементы последовательности:');
while (n > 0) do begin
read(temp);
if temp mod 2 = 0 then begin
a[i] := temp;
i := i + 1;
end;
n := n - 1;
end;
n := i - 1;
if n = 0 then
writeln('В последовательности нет чётных элементов')
else begin
writeln('Массив из чётных элементов последовательности:');
for i := 1 to n do
write(a[i]:4);
end
end.
замени и на умножение, или на сложение и в левой части раскрой скобки.
Получишь правую часть. доказано