program BaiToanMang;

var
  A: array[1..100] of integer;
  N, i, demChan, tongLeChia3: integer;

begin
  write('Nhap so phan tu cua mang: ');
  readln(N);
  writeln('Nhap cac phan tu cua mang: ');
  for i := 1 to N do
  begin
    write('a[', i, ']= ');
    readln(A[i]);
  end;
  tongLeChia3 := 0;
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
    begin
      tongLeChia3 := tongLeChia3 + A[i];
    end;
  end;
  writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
  demChan := 0;
  for i := 2 to N do
  begin
    if (A[i] mod 2 = 0) and (i mod 2 = 1) then
    begin
      demChan := demChan + 1;
    end;
  end;
  writeln('So phan tu chan o vi tri le: ', demChan);
  writeln('Cac so chan chia het cho 5: ');
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
    begin
      write(A[i], ' ');
    end;
  end;
end.

ko bt đúng ko ko dùng pascal nhiều

b dùng pascal hay python V:

program stringManipulation;

var
  st1, st2: string;
  countN, i: integer;

begin
  write('Nhap vao xau ki tu st1: ');
  readln(st1);
  countN := 0;
  for i := 1 to length(st1) do
  begin
    if (st1[i] = 'N') or (st1[i] = 'n') then
    begin
      countN := countN + 1;
    end;
  end;
  writeln('So ky tu N va n trong xau st1 la: ', countN);
  st2 := '';
  for i := 1 to length(st1) do
  begin
    if (st1[i] >= 'A') and (st1[i] <= 'Z') then
    begin
      st2 := st2 + st1[i];
    end;
  end;
  writeln('Cac ky tu in hoa trong xau st1 la: ', st2);
  write('Xau st1 viet theo chieu nguoc lai la: ');
  for i := length(st1) downto 1 do
  begin
    write(st1[i]);
  end;
  readln;
end.

st1 = input("Nhập vào xâu kí tự: ")
count_n = 0
st2 = ""
for char in st1:
    if char == 'N' or char == 'n':
        count_n += 1
    if char.isupper():
        st2 += char

print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)
print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)
print("Xâu kí tự đảo ngược là:", st1[::-1])

def sum_and_diff(m, n):
    sum = m + n
    diff = m - n
    return sum, diff

# sử dụng chương trình con
a = 5.6
b = 2.3
result = sum_and_diff(a, b)
print("Tổng và hiệu của", a, "và", b, "là", result)

# nhập vào số lượng số
n = int(input("Nhập vào số lượng số: "))

# khai báo một danh sách để lưu trữ các số
numbers = []

# nhập vào các số và lưu trữ chúng trong danh sách
for i in range(n):
    number = int(input("Nhập vào số thứ {}: ".format(i+1)))
    numbers.append(number)

# tìm các số có 3 chữ số và in ra màn hình
print("Các số có 3 chữ số là:")
for number in numbers:
    if 100 <= number <= 999:
        print(number)

# Mở tệp IN.INP để đọc thông tin
with open('IN.INP', 'r') as file_input:
    # Đọc hai số nguyên M và N từ tệp IN.INP
    M, N = map(int, file_input.readline().split())

# Mở tệp OUT để ghi thông tin
with open('OUT.OUT', 'w') as file_output:
    # Lặp qua tất cả các số nguyên trong phạm vi từ M đến N
    for num in range(M, N+1):
        # Kiểm tra xem số đó có phải là số chẵn không
        if num % 2 == 0:
            # Nếu là số chẵn, ghi số đó vào tệp OUT.OUT
            file_output.write(str(num) + '\n')

# Tính lũy thừa
a = 3
n = 2
power = a ** n
print(power)  # Kết quả: 9

# Tính giai thừa
n = 5
factorial = 1
for i in range(1, n+1):
    factorial *= i
print(factorial)  # Kết quả: 120

# Nhập mảng từ bàn phím
arr = list(map(int, input("Nhập mảng các số nguyên, cách nhau bởi dấu cách: ").split()))

# Nhập số M từ bàn phím
M = int(input("Nhập số M: "))

# In ra các phần tử chia hết cho M và tính tổng
sum = 0
count = 0
print("Các phần tử chia hết cho M là:", end=" ")
for i in arr:
    if i % M == 0:
        print(i, end=" ")
        sum += i
        count += 1

if count == 0:
    print("\nKhông có phần tử nào chia hết cho M.")
else:
    print("\nTổng các phần tử chia hết cho M là:", sum)

# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
    A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))

# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
    if num % 3 == 0 and num % 5 == 0:
        sum_35 += num
        count_35 += 1
if count_35 > 0:
    tb_35 = sum_35 / count_35
    print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
    print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")

# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
    if num % M == 0:
        print(num, end=" ")
        sum_M += num
        count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)