program jumlah_barisan_ganjil

program jumlah_barisan_ganjil;
uses wincrt;
var n,a,j:integer;
begin
clrscr;
Writeln('Program Membuat Jumlah Barisan Ganjil');
writeln;
writeln('****************************************');writeln('* Nama : hadi khusnan');gotoxy(40,4);writeln('*');
writeln('* Nim : 110910117');gotoxy(40,5);writeln('*');
writeln('* Kelas : IIB');gotoxy(40,6);writeln('*');
writeln('* Kelompok : C');gotoxy(40,7);writeln('*');
writeln('****************************************');
writeln;
writeln;
write ('masukkan nilai= '); readln (n);
for a:=1 to n do
if a mod 2=0 then
write
else
begin
write (a,'+');
j:=j+a;
end;
writeln;
writeln('jumlahnya adalah ', j);
end.