Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]

program chisla;
uses crt;
var i,k: integer;
begin
 clrscr;
 k:=0;
 write('Чётные числа*:');
 for i:=25 to 145 do
 if (i mod 2=0) and (i mod 3=0) then
 begin
  write(i,' ');
  k:=k+1;
 end;
 write('Количество: ',k);
 readln;
end.

program chisla;
uses crt;
var a,b,c,d,i: integer;
begin
 clrscr;
 for i:=1000 to 9999 do
 begin
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  if a+b=c+d then write(i,'':1);
 end;
 readln;
end.

var
 i, n: integer;
begin
 n:=0;
 for i:=-10 to 10 do
  if not odd(i) then inc(n,i);
 writeln('Сумма: ',n);
 readln;
end.

program chisla;
uses crt;
var sum,i: integer;
begin
 clrscr;
 sum:=0;
 for i:=-10 to 10 do
 if i mod 2 =0 then sum:=sum+i;
 write('‘Сумма= ',sum);
 readln;
end.