program TongSoTuNhien;

var
  i, sum: integer;

begin
  sum := 0;

  for i := 1 to 5 do
  begin
    sum := sum + i;
  end;

  writeln('Tong cac so tu nhien tu 1 den 5 la: ', sum);
end.
 

Chương trình Pascal để tính và hiển thị tổng của các số tự nhiên từ 1 đến 5 như sau:
program TinhTongTu1Den5;
var
   i, sum: integer;

begin
   sum := 0;
   
   for i := 1 to 5 do
   begin
      sum := sum + i;
   end;
   
   writeln('Tong cua cac so tu 1 den 5 la: ', sum);
   readln; // Đợi người dùng nhấn phím Enter để kết thúc chương trình
end.

Giải thích:

• Dòng 1: Khai báo tên chương trình là TinhTongTu1Den5.
• Dòng 2-4: Khai báo biến i (sử dụng trong vòng lặp) và sum (lưu tổng của các số).
• Dòng 6: Gán giá trị ban đầu cho sum = 0.
• Dòng 8-10: Sử dụng vòng lặp for để lặp qua các số từ 1 đến 5. Mỗi lần lặp, giá trị của i được cộng vào biến sum.
• Dòng 12-13: Hiển thị tổng của các số từ 1 đến 5 ra màn hình.
• Dòng 14: Đợi người dùng nhấn phím Enter để kết thúc chương trình.