Паскаль помогите пожалуйста

Тип данных Массив от 1 до 10 с элементами типа Integer создать алгоритм который вычеслит произведение парных чисел

А что ты вводил?

Рандомные цифры

программа написана правильно чё ты придираешься, после end; поставь p:=1;, извините просто столько уведомлений от вас

Всё нормально у меня не получалось извините я новичок......

var  a: array [1..10] of Integer;  i, p : Integer;begin  for i := 1 to 10 do  begin    Write('a[', i, '] = ');    Readln(a[i]);  end;  for i := 1 to 10 do    if a[i] mod 2 = 0 then p := p * a[i];  Writeln(p);end.

Program Bi3;var     a:integer;    pr:integer;    i:integer;begina[0]:=0;pr:=1;writeln('Введите ваше число');for i:=1 to 10 do begin    readln(a[i]);    If (a[i]-a[i-1]=2) then begin    pr:=pr*a[i];end;end;End.