# Hàm tính diện tích hình vuông

def dien_tich_hinh_vuong(canh):

     dien_tich = canh ** 2

     return dien_tich

# Hàm tính diện tích hình chữ nhật

def dien_tich_hinh_chu_nhat(dai, rong):

     dien_tich = dai * rong

     return dien_tich

# Kiểm tra và in kết quả

canh = float(input("Nhập vào cạnh hình vuông: "))

dai = float(input("Nhập vào độ dài hình chữ nhật: "))

rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))

if canh <= 0 or dai <= 0 or rong <= 0:

     print("Kích thước không hợp lệ!")

else:

     dien_tich_hv = dien_tich_hinh_vuong(canh)

     dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)

     print("Diện tích hình vuông là: ", dien_tich_hv)

     print("Diện tích hình chữ nhật là: ", dien_tich_hcn)

program DemSoChan;

var

     A: array of Integer;

     n, i: Integer; 

begin

     Write('Nhap so phan tu cua day A: ');

     Readln(n); 

     SetLength(A, n);

     for i:= 0 to n-1 do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     Writeln('Cac so chan trong day A la:');

     for i:= 0 to n-1 do

     begin

          if A[i] mod 2 = 0 then

               Write(A[i], ' ');

     end;

end.

- Thủ tục để vẽ đường tròn:

to Duongtron

REPEAT 60 [FD 5 RT 6]

end

- Chương trình sử dụng Duongtron để vẽ hình:

to Hinh1

REPEAT 4 [Duongtron RT 90]

end

REPEAT 60 [FD 5 RT 6] RT 90 bạn nhé

nãy mình vừa thử rồi

program DemSoChanLeTrongMang;

var

     A: array of Integer;

     n, i, demChan, demLe: Integer;

begin

     Write('Nhap so phan tu cua mang: ');

     Readln(n);

     SetLength(A, n);

     for i:= 0 to n-1 do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     demChan := 0;

     demLe := 0;

     for i:= 0 to n-1 do

     begin

          if A[i] mod 2 = 0 then

               demChan := demChan + 1

          else

               demLe := demLe + 1;

     end;

     Writeln('So luong so chan trong mang la: ', demChan);

     Writeln('So luong so le trong mang la: ', demLe);

end.

program TinhTongBinhPhuong;

var

     n, i, S: Integer;

begin

     Write('Nhap n: ');

     Readln(n);

     S := 0;

     for i := 1 to n do

     begin

          S := S + i * i;

     end;

     WriteLn('Tong cac binh phuong la: ', S);

end.

program SoChanDenN;

var

     n, i: Integer;

begin

     Write('Nhap n: ');

     Readln(n);

     Write('Cac so chan tu 1 den ', n, ' la: ');

     for i := 1 to n do

     begin

          if i mod 2 = 0 then

               Write(i, ' ');

     end;

end.

program SoMinMaxTrongMang;

var

     A: array [1..50] of Integer; 

     n, i, min, max: Integer;

begin

     Write('Nhap so phan tu cua mang: ');

     Readln(n);

     for i := 1 to n do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     min := A[1];

     max := A[1];

     for i := 2 to n do

     begin

          if A[i] < min then

               min := A[i];

          if A[i] > max then

               max := A[i];

     end;

     WriteLn('So lon nhat trong mang la: ', max);

     WriteLn('So nho nhat trong mang la: ', min);

end.

program SoChiaHetCho3;

var

     i: Integer;

begin

     writeln('Cac so chia het cho 3 trong doan tu 1 den 10 la:');

     for i := 1 to 10 do

     begin

          if i mod 3 = 0 then

               write(i, ' ');

     end;

end.