program suml; // tên chương trình.
uses crt;//thủ tục xóa màn hình làm sạch màn hình
const nmax=100;// gán biến namx = 100 có nghía bất kì nmax có xuất hiện ở đâu vẫn mang giá trị 100
type myarray=array[1..nmax] of integer;//khởi tạo 1 mạng vào gán nó có tên là myarray từ 1..nmax ( 1..100)
var a:myarray;// gọi a là mảng trên
    s,n,i,k:integer;//khai báo biến
begin
        clrscr;//xóa màn hình

        randomize;//thủ tục để random số
        wrie('nhap n =');
        readln(n);
        for i := 1 to n do a[i]:=random(300) - random(300);// có nghĩa chạy từ 1 đến hết mảng gán ai cho random(300) - random(300) - random là gì mình gt bên dưới.
        for i := 1 to n do write(a[i]:5); //ghi kết quả tính được của a[i] trên;
        writeln;
        write('nhap k = ');
        readln(k);
        s:=0;
        for i := 1 to n do
         if a[i] mod k = 0 then s:=s+a[i];// nếu mà a[i] mà chia hết cho k thì ta sẽ cộng tất cả các a[i] đó lại với nhau
        writeln('tong can tinh la: ',s);//in ra tổng a[i] chia hết cho k ở phía trên
        readln
end.

P/s: random là 1 hàm chỉ lấy 1 biến bất kì trong phạm vi mà người code cho 

Ví dụ: random(300) là lấy các số trong khoảng 300 có thể lấy 1,2,5,7,299,201,300.

@Hômnaytôibịrob

- program Sum1;

⇒ khai báo tên chương trình là Sum1

- uses crt;

⇒ khai báo thư viện crt

- const nmax = 100;

⇒ khai báo hằng nmax có giá trị là 100

- type MyArray = array[1..nmax] of integer;

⇒ khai báo kiểu mảng 1 chiều mảng MyArray kiểu số nguyên

- var A : MyArray;

⇒ Khai báo biến mảng A qua kiểu mảng

- s, n, i, k : integer;

⇒ khai báo biến s, n, i, k kiểu nguyên

- begin

⇒ từ khoá bắt đầu chương trình

- clrscr; randomize;

⇒ câu lệnh xoá màn hình, lệnh tạo số ngẫu nhiên

- write('Nhap so n = ');

⇒ in xâu Nhap so n =

- readln(n);

⇒ nhập giá trị từ bàn phím gán cho n

- for i := 1 to n do A[i] := random (300) - random (300);

⇒ tạo mảng ngẫu nhiên với giá trị tuyệt đối không vượt 300

- for i := 1 to n do write(A[i]: 5);

⇒ in mảng vừa tạo

- writeln;

⇒ đưa con trỏ xuống đầu dòng tiếp theo

- writeln('Nhap k = ');

⇒ in xâu Nhap k =

- readln(k);

⇒ nhập giá trị từ bàn phím gán cho k

- s := 0;

⇒ gán giá trị biến s = 0

- if A[i] mod k = 0 then s := s + A[i];

⇒ tính tổng các phần tử có giá trị chia hết cho k

- writeln('Tong can tinh la : ', s);

⇒ In xâu Tong can tinh la và giá trị biến s

- readln

⇒ dừng màn hình cho tới khi nhấn phím Enter

- end.

⇒ từ khoá kết thúc chương trình