Gabung Deret Genap dan Ganjil

Hai kawan ... ^_^
Pada kesempatan saya kali ini, saya ingin berbagi mengenai penggabungan antara deret genap dan ganjil yang dibuat dengan bahasa pemograman Pascal dan menggunakan perulangan For ... Do. Langsung kita liat TKP nya aja ya :)


Source Code :

program deretgenapganjil;
uses crt;

var
a, i, j, x, y : integer;

begin
clrscr;
writeln;
writeln('GABUNG DERET GENAP DAN GANJIL');
writeln;
write('Masukkan batas angka : ');
readln(a);
writeln;
x := -2;
for i := 1 to a do
        begin
        x := x + 2;
        write (x, ' ');
        end;
y := -1;
for j := 1 to a do
        begin
        y := y + 2;
        write (y, ' ');
        end;
readln;
end.

Hasil Ouputnya :