viết chương trình nhập số nguyên n từ bàn phím a, viết ra các số lẻ nhỏ hơn n b,tính tổng các số lẻ nhỏ hơn n

Uses crt;

Var S, i, n: integer;

Begin

Write (‘Nhap n=’); 

Readln (n);

S:=0;

For i:= 1 to n do 

If i mod 2=1 then S:= S+i;

Writeln (‘Viet ra cac so le nho hon n la:’, S);

Writeln (‘Tong cac so le nho hon hoac bang n la:’, S);

Readln

End.

uses crt;

var i, n, s : integer;

begin

clrscr;

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

i := 1; s := 0;

while i < n do

begin

if i mod 2 <> 0 then

begin

write(i:3);

s := s + i;

end;

i := i + 1;

end;

writeln;

writeln('tong s = ', s);

readln

end.