Program Bilangan Ganjil

program bil_ganjil;
uses wincrt;
var
a,b,c:integer;
begin
write('Masukan Nilai : '); readln(a);
for b:=1 to a do
begin
if b mod 2=1 then
begin
c:=c+b;
write(b,' ');
end;
end;
writeln;
write('Hasil Penjumlahan : ',c);
end.