Mô tả thuật toán và viết chương trình tính tổng của số từ 1->10 Làm giúp nhanh tí ạ e đg cần gấp

Mô tả thuật toán:

B1: sum<-0; i<-0.

B2: i<- i+1.

B3: nếu i <=10 , thì sum<- sum+i và quay trở lại B2.

B4: thông báo kết quả và kết thúc thuật toán.

Viết chương trình:

uses crt;

var i,s: integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

s:=s+i;

writeln('tong = ' ,s);

readln;

end.

Mô tả thuật toán:

bước 1: s←0; 

bước 2: Chạy i←1 đến 10 thực hiện lệnh s←s+i;

bước 3: Xuất s;

Bước 4:Kết thúc

Chương trình:

Program Tinh_tong;

Uses crt;

Var s,i:byte;

Begin

Clrscr;

s:=0;

For i:=1 to 10 do s:=s+i;

Write(s);

Readln;

End.

Xin câu trả lời hay nhất, cảm ơn và 5* ạ