Cho thuật toán sau:
Bước 1: Nhập n.
Bước 2: S <--0; i <--0
Bước 3: i <-- i + 1
Bước 4: Nếu i lớn hơn hoặc bằng n, S <-- S + i và quay lại bước 3; Ngược lại (i>n) thông báo kết quả và kết thúc thuật toán.
Hãy viết phương trình Pascal để thể hiện thuật toán trên\(\)
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;i:=0;
i:=i+1;
while i>=n do
begin
s:=s+i;
i:=i+1;
end;
{ write(.........); }
readln
end.
P/S: Vì đề bài chưa cho biết in ra gì nên mình bỏ trống phần write nha bạn