Viết chương trình pascal tính: A=1+3+5+7+…+N

Program chuongtrinh;

uses crt;

var i, n, s:integer;

begin

clrscr;

write(‘nhap vao so nguyen n= ‘); readln(n);

s:=0;

for i:=1 to n do of o mod 2=1 then s:=s+i;

writeln(‘tong cac so le la’,s);

readln;

end.