Среди 5 чисел, найти произведение чисел, у которых последняя цифра

Uses crt;
var
a:array[1..10]of integer;
b:array[1..10]of integer;
max,i,c,k:integer;
beginfor i:=1 to 10 do
a[i]:=random(20)-10;
for i:=1 to 10 do
if abs(a[i])>abs(max) then begin
max:=a[i];
c:=i;
end;
for i:=1 to 10 do
if (a[i]=max)and(i<>c) then begin
b[i]:=i;
k:=k+1;
end;
writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')');
write('номера таких же элементов: ');
for i:=1 to 10 do
if b[i]>0 thenwrite(b[i],' ');
writeln('их кол-во:(',k,')');
writeln;
for i:=1 to 10 do
write(a[i],' ')
end.