Câu 1:

• Lỗi 1: biến N được khai báo không có tên biến
• Lỗi 2: biến m chưa được gán giá trị
• Lỗi 3: biến S chưa được gán giá trị
• Lỗi 4: Từ khóa Print phải viết hoa

Sửa lại: var N,M,S:integer; N:=10; M:=20; S:=M*N; Writeln('Chữ nhật là ', S);

Câu 2: var i, sum: integer; sum := 0; for i := 1 to 100 do begin if (i mod 2) = 1 then sum := sum + i; end; writeln('Tổng các số lẻ từ 1 đến 100 là: ', sum);