Program bilangan_ganjil

Program bilangan_ganjil;
Uses wincrt;
Var
x:integer;
begin
clrscr;
write (‘masukkan nilai n: ‘); readln (x);
for x:=1 to x do
begin
if (x mod 2)=1 then
write (x,’+’);
end;
end.