Membuat Gerafic dengn Pascal

ASSALAMUALAIQM SOBAT...!!
Dsini abdee postingin giman cara membuat gerafic dengan menggunakan bahasa pascal,Oky sobat kita langsug ke TKP aja :
1. Buka Aplikasi Pascal nya
2. Tulis Coding seperti ini :
uses wincrt;
var
data :array[1..10]of integer;
bulan :array[1..10]of integer;
a,barang,jumlah :integer;
b,d,e :byte;
begin
writeln('ABDEE');
gotoxy(4,3);write('PENDAPATAN CB.SERBA ADA.');
gotoxy(5,4);writeLN('PER_BULAN.');
for B:=0 to 10 do
begin
gotoxy(41,13-b);
write(b);
end;
for a:=1 to 10 do
begin
gotoxy(43,13-a);
write('%');
end;
gotoxy(44,13);
write('____________________________');
writeln;writeln;
gotoxy(55,16-a);writeln('bulan');
for d:=1 to 5 do
begin
gotoxy(43+d*4,5);
write(d)
end;
for barang :=1 to 5 do
begin
gotoxy(2,6 + barang);
write('Jumlah Pendapatn Bulan Ke_',barang,':');
readln(data[barang]);
{batang grafif}
for e:=1 to data[barang] do
begin
gotoxy(42+2*barang*2,13-e);writeln('**');
end;
end;
end.
3. Setelah selasi jalankan Program nya dengan menekan mnu run atau ctrl+F9,makan hasilanya akan seperti ini brow :

udah bisa kan.. semoga teman-teman bisa kembangkan..

Abdee_Lombok_NTB