Câu 1 :
Uses Crt;

Var chieudai,chieurong : integer;

Begin

 Clrscr;

 Write('Nhap chieu dai :'); Readln(chieudai);

 Write('Nhap chieu rong :'); Readln(chieurong);

 Writeln('Dien tich HCN la :',chieudai*chieurong);

 Readln

End.

Câu 2 : 
Uses Crt;

Begin

 Clrscr;

 Writeln('Ho : <họ của bạn>');

 Writeln('Ten: <tên của bạn>');

 Writeln('Lop : <lớp của bạn>');

 Readln

End.
Câu 3:
Uses Crt;

Var x,y : integer;

Begin

 Clrscr;

 Write('Nhap x : '); Readln(x);

 Write('Nhap y ; '); Readln(y);

 Writeln('Gia tri cua bieu thuc la :',x+(x*x)*y-x*(y*y)+y);

 Readln

End.

Python: (Ấy bỏ ik:) Cái này là Pascal:>):

Câu 1:

program Hello;
var
        a : integer;
        b : integer;
begin
        writeln('Nhập chiều dài của hình chữ nhật: ');
        readln(a);
        writeln('Nhập chiều rộng của hình chữ nhật: ');
        readln(b);
        writeln('Diện tích của hình chữ nhật là: ', a * b);
        readln;
end.

Câu 2:

program Pascal;
var
        a : string;
        b : string;
        c : string;
begin
        writeln('Nhập họ của bạn: ');
        readln(a);
        writeln('Nhập tên của bạn: ');
        readln(b);
        writeln('Nhập lớp của bạn: ');
        readln(c);
        writeln('Họ: ', a, '. Tên: ', b, '. Lớp: ', c);
        readln
end.

Câu 3: 

program Pascalisgood;
var
        x : integer;
        y : integer;
begin
        writeln('Nhập x: ');
        readln(x);
        writeln('Nhập y: ');
        readln(y);
        writeln('Kết quả của biểu thức: ', x, '+', x * x, '.', y, '-', x, '.', y * y, '+', y, 'là: ', x + x * x * y - x * y * y + y);
        readln;
end.

Python:

Câu 1:

a = int(input("Nhập chiều dài của hình chữ nhật: "))

b = int(input("Nhập chiều rộng của hình chữ nhật: "))

print("Diện tích của hình chữ nhật là: ", a * b)

Câu 2:

Ho = str(input("Nhập họ của bạn: "))

Ten = str(input("Nhập tên của bạn: "))

Lop = str(input("Nhập lớp của bạn: "))

print("Họ:",Ho,". Tên:",Ten,". Lớp: ",Lop)

Câu 3:

x = int(input("Nhập x: "))

y = int(input("Nhập y: "))

print("Kết quả của biểu thức: ", x, "+", x * x, ".", y, "-", x, ".", y * y, "+", y, "là: ", x + x * x * y - x * y * y + y)