Решите, пожалуйста. Найти произведение элементов массива целых чисел A(n), меньших 3

1. Ввод с клавиатуры var p,i:integer;a:array [1..10] of integer;beginp:=-1;for i:=1 to 10 do beginreadln (a [i]);end;while p = -1 do beginfor i:=1 to 10 do beginif (a [i] < 3) then p:=1;end;end;for i:=1 to 10 do beginif (a [i] < 3) thenp:=p*a [i];end;writeln (p);end.2.Рандомvar p,i:integer;a:array [1..10] of integer;beginp:=-1;for i:=1 to 10 do begina [i]:=Random (10);end;write ('Наш массив: ');for i:=1 to 10 do beginwrite (a [i]);write (' ');end;writeln (' ');while p = -1 do beginfor i:=1 to 10 do beginif (a [i] < 3) then p:=1;end;end;for i:=1 to 10 do beginif (a [i] < 3) thenp:=p*a [i];end;writeln ('Произведение = ',p);end.