Giúp Tui với ạ(đang cần gấp)!!!! Cho mô tả thuật toán sau: Bước 1. S<--0;n<--0; bước2. Nếu n>4 thì chuyển đến bước 4. Bước3. N<--n+1;S<--S+n;quay lại bước2. Bước 4.thông báo gtri S. a)tính gtri S,n. b) vt chương trình (sử dụng vòng lặp For...to...do)
a: n=10
b: uses crt;
var i,s,n:integer;
begin
clrscr;
s:=0;
for i:=1 to 4 do s:=s+i;
write(s);
readln;
end.