дан двумерный массив размерностью 4 на 5.элементы массива создаются случайным образом. промежуток от -70 до 100. найти произведение чисел, заканчивающихся на 3(на языке Паскаль).

Var  a:array[1..4,1..5] of integer;  i,j,p:integer;Beginp:=1;For i:=1 to 4 Do  begin  for j:=1 to 5 do    begin    a[i,j]:=random(-70,100);    write(a[i,j]:4);    if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];    end;  writeln;  end;Writeln('Ответ: ',p)End.