const n=20;
type mas=array[1..n] of integer;
procedure out(m:mas;k:integer);
var i:integer;
begin 
 for i:=1 to k do write(m[i]:4);
 writeln;
end;
var a,b,c:mas; i,k1,k2,k3,d,e:integer; l:boolean;
begin
Randomize;
for i:=1 to n do a[i]:=random(501);
out(a,n);
// 1
k1:=0;
for i:=1 to n do
 begin
 d:=a[i] mod 10;
 if d<>0 then if a[i] mod d = 0 then begin k1:=k1+1; b[k1]:=a[i]; end;
 end;
writeln('1 массив:');
out(b,k1);
// 2
k2:=0;
for i:=1 to n do
 begin
 d:=a[i];
 while d>9 do d:=d div 10;
 if d<>0 then if a[i] mod d = 0 then begin k2:=k2+1; c[k2]:=a[i]; end;
 end;
writeln('2 массив:');
out(c,k2);
// 3
k3:=0;
for i:=1 to n do
 begin
 l:=true;
 d:=a[i]; e:=d mod 10;
 while d>9 do 
  begin
  d:=d div 10;
  if e <> d mod 10 then l:=false;
  e:=d mod 10; 
  end;
  if l then k3:=k3+1;
 end;
writeln('k3=',k3);
end.

Пример:
 208 190  78 485 235  44 315 358  27 214 303  23 219 447 272 248 433 266 396  27
1 массив:
 208 485 235  44 315 303 272 248 396
2 массив:
 208 190  44 315 214 303 272 248 266 396
k3=1