2) Tínhtổngcácsốlẻtừ1đếnnvớinlàsốnguyênđượcnhậptừbànphím

uses crt;
var i,n,S:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   if i mod 2 <> 0 then S:=S+i;
   write('Tong le la: ',S);
   readln
end.

program oken;
uses crt;
var n,i,sum:longint;
begin
        clrscr;
        write('Nhap 1 so bat ky: '); readln(n);
        sum:=0;
        for i:=1 to n do
                if i mod 2=1 then
                        sum:=sum+i;
        writeln('Tong so le tu 1 den ',n,': ',sum);
        readln;
end.