viết chương trình tính tổng S=1+3+5+7+9+......+N với N được nhập từ bàn phím với in tên lớp của mình ra bắt buốc chương trình phải chính xác 100%

program ct;

uses crt;

var i,s,n:integer;

begin

clrscr;

write('nhap n:=');readln(n);

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+i;

writeln('tong la:',s);

writeln('nhap ten cua ban:');

writeln('nhao lop cua ban:');

readln

end.

program oken;
uses crt;
var n,i,s: longint;
begin   
    clrscr;
    write('Nhap 1 so bat ky: '); readln(n);
    s:=0;
    for i:=1 to n do
        if (i mod 2=1) then 
            s:=s+i;
    writeln('Tong S: ',s);
    writeln('Ho va Ten: {ban ghi ten o day}');
    writeln('Lop: {ban ghi lop o day}');
    {Nho xoa hai "dong ban ghi.."., sau khi ghi ten va lop}
    readln;
end.