2. Bilangan Ganjil dan Genap

program ganjil_Genap;
uses crt;
var
i,j,k,l,n,o,p: integer;
begin
clrscr;
       write('Masukkan banyak bilangan : ');
       readln(n);
       write(n,' Bilangan ganjil yang pertama : ');
for i:=1 to n do
        begin
        if i mod 2 = 1   then
           begin
             k:=k+i;
             write(i,' ');
           end;
       end;
       writeln;
       write(n,' Bilangan genap yang pertama : ' );
for j:=1 to n do
       begin
       if j mod 2=0 then
          begin
            l:=l+j;
            write(j,' ');
          end;
       end;
       writeln;
       p:=l+k;
       write('Hasil: ',p);
       readln;
end.