Pascal: 

program ct;
uses crt;
var dung: byte;
const SO_DIEM_NHAN_DUOC=10;
begin
    clrscr;
    writeln('Nhap so cau tra loi dung: '); readln(dung);
    writeln('So diem ban nhan duoc la: ',dung*SO_DIEM_NHAN_DUOC); 
    readln;
end.

Python 3:

SO_DIEM_NHAN_DUOC = 10
i = int(input('Nhap so cau tra loi dung: '))
print('So diem ban nhan duoc la: ',i*SO_DIEM_NHAN_DUOC)

'''Theo mik thì Python không có hằng số, bạn chỉ cần gán giá trị

cho 1 biến và không thay đổi nó là được''' 

______________________

# Hang so: SO_DIEM_NHAN_DUOC

P/s: Mik thường đặt tên cho hằng bằng những tên viết hoa để dễ phân biệt

#Duahauvn

program sksk;

uses crt;

var a : integer;

const b = 2;

begin

clrscr;

write('nhap so nguyen duong a :');readln(a);

if a mod b = 0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln

end.

* Hằng b

* Biến a