Contoh program ganjil & genap menggunakan array di turbo pascal 7.1

kali ini aku coba posting program ganjil & genap menggunakan array dalam Turbo Pascal 7.1.
ea sebenarnya sih aku buat ini saat masih semester 1 di mata kuliah algoritma dan pemrograman hehehe..
program ini cukup sederhana
langsung aja cekidot.... :D

tulis kayak gini ya...

uses crt;
var a,b:array [1..100] of integer;
x,p,q:integer;
begin
clrscr;
writeln; writeln('Tri yanto ');
writeln('Sistim Informasi');
writeln('2117100423');
writeln('--------------------'); writeln;
write('masukkan angka 1 :'); readln(p);
write('masukkan angka 2 :'); readln(q); writeln;
writeln('genap  ganjil'); writeln;
for x := p to q do begin
if x mod 2=0 then a[x]:=x else
b[x]:=x;

if a[x]<>0 then writeln(a[x]:3);
if b[x]<>0 then writeln(b[x]:10);
end;
readln;
end.

bener2 sederhana kan..?
nah kalo udah jadi seperti ini