Mô tả thuật toán tính tổng của n số lẻ từ 1 đến N

Mô tả thuật toán tính tổng của N số lẻ từ 1 đến N

+ Bước 1 : nhập số N

+ Bước 2 : i ← 1, S ← 0

+ Bước 3 : nếu i > N thì đưa ra giá trị S rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : nếu i mod 2 <> 0 thì S ← S + i

+ Bước 4.2 : i ← i + 1 quay lại bước 3

program Bai_1_FoToDo;
uses crt;
var n,i :longint; S :qword;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        S:=0;
        For i:=1 to n do S:=S+(2*i)+1
        write('Tong cac so le tu 1->n la : ',S);
        readln;
end.