Вычислить произведение элементов заданного массива заканчивающихся на цифру к.

uses crt;
var
a:array[1..100]of integer;
i,n,min,pos,j,temp:integer;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],'  ');
 end;
min:=a[1];
for i:=1 to n do
if a[i]<min then
 begin
  min:=a[i];
  pos:=i;
 end;
writeln;
writeln('min=',min);
writeln('preobrazovannyi massiv:');
for i:=1 to pos-1 do
for j:=1 to pos-2 do
if a[j]>a[j+1] then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
 end;
for i:=1 to n do
write(a[i],'  ');
readkey;
end.

program tralala;
uses crt;
const
n=100;
var
i,k,j,buf:integer;
ind:boolean;
m:array[1..n] of integer;
Begin
 randomize;
 writeln('Введите колличество элементов массива');
 readln(k);
 for i:=1 to k do m[i]:=random(10)-5;
 writeln('Ваш массив :');
 write('[ ');
 for i:=1 to k do write(m[i],' ');
 write(']');
 j:=k div 2;
 if k mod 2 =0 then j:=j+1;
 while ind=false do
  Begin
  ind:=true;
  for i:=j to k-1 do if m[i]>m[i+1] then
   Begin
    buf:=m[i];
    m[i]:=m[i+1];
    m[i+1]:=buf;
    ind:=false;
   end;
  end;
  writeln('После сортировки ваш массив выглядит так :');
  write('[ ');
  for i:=1 to k do write(m[i],' ');
  write(']');
end.