Câu 1: program SumOfEvenNumbers;

var
  n, i, sum: integer;

begin
  sum := 0;

  write('Enter a number: ');
  readln(n);

  for i := 2 to n do
  begin
    if (i mod 2 = 0) then
      sum := sum + i;
  end;

  writeln('Sum of even numbers from 2 to ', n, ' is: ', sum);
end.

Câu 2: program DifferenceOfOddNumbers;

var
  n, i, hieu: integer;

begin
  hieu := 0;

  write('Nhập một số nguyên: ');
  readln(n);

  for i := 1 to n do
  begin
    if (i mod 2 = 1) then
      hieu := hieu - i;
  end;

  writeln('Hiệu của các số lẻ từ 1 đến ', n, ' là: ', hieu);
end.