cho thuật toán sau:
b1: nhập n
b2: s<- 0 i<- 0
b3: i <- i+1
b4: nếu i nhỏ hơn hoặc bằng n ,S <- S+i và quay lại b3 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 chương trình Pascal để thể hiện thuật toán trên mn giúp e với mai em thi hk2
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.