Решите 2,3,4,5
если что не понятно ,можно одно задание не решать только три заданий!
но лучше все решить."Составление программ с циклом For)

const n=100;var a:array[1..n] of integer;      i,k:integer;begin...//заполняешь массивk:=0;for i:=1 to n do begin  if (a[i] mod 2=0)and(a[i]mod 3=0) then    k:=k+1;end;writeln('кол-во чисел кратных и 2-м и 3-м=',k);end.const n=100;var a:array[1..n] of integer;      i,k:integer;begin...//заполняешь массивfor i:=1 to n do begin  if (a[i]div 10)/(a[i]mod 10)=2 then    write(a[i],' ');end;end.const n=100;var a:array[1..n] of integer;      i,k:integer;begin...//заполняешь массивfor i:=1 to n do begin  if a[i]mod 10=a[i] div 100 thenwrite(a[i],' ');end;end.const n=100;var a:array[1..n] of integer;      i,k:integer;begin...//заполняешь массивfor i:=1 to n do begin  if a[i]mod((a[i]mod 10)+(a[i]div 10))=0 thenwrite(a[i],' ');end;end.