Simple Program From Turbo Pascal

Hai. Kali ini saya akan ngeshare Sebuah program sederhana yang saya buat dari Turbo Pascal.. Program ini terinspirasi dari anak SMP yang susah betul mencari Suku Bilangan :) Ohya, program ini masih menggunakan fungsi yang sederhana juga.. kalau ada salah debenerin ya :)
Cekidot Gan!


Program Mencari_suku_Bilangan;
uses wincrt;
var

a,b,n,Un,Sn : Integer;
Dilema,Akhir : Char;

label

awal,Baris,Deret;


begin

awal:

clrscr;
writeln('----*** Pola Barisan Dan Deret Aritmetika by M.Riksa Rizky F ***-----');
writeln;
writeln('Tekan (B) Untuk Barisan, Tekan (D) Untuk Deret');
readln(Dilema);
if(Dilema='B') or (Dilema='b')then goto Baris;

if(Dilema='D')or (Dilema='d')then goto Deret;


Baris:

clrscr;
writeln('Masukkan Nilai Suku Yang Akan Diketahui Nilainya');
readln(n);
writeln;
writeln('Masukkan Suku Awal atau U1');
readln(a);
writeln;
writeln('Masukkan Nilai Beda');
readln(b);

Un:=a+(n-1)*b;

writeln;
writeln('------*** Hasil ***------');
writeln;
writeln('Diketahui');
writeln;
writeln('Suku Yang Akan dicari Sebesar  : ', n);
writeln('Suku Awal Sebesar              : ', a);
writeln('Nilai Beda Sebesar             : ', b);
writeln('Maka, Suku Ke n= Un=a+(n-1)b   : ', Un);
writeln;
writeln('--------------------------');
writeln('Ingin Mencoba Lagi? (Y/T)');
readln(Akhir);
if(Akhir='Y')or(Akhir='y')then goto awal;


Deret:

clrscr;
writeln('Masukkan Suku Yang Akan Diketahui Jumlahnya');
readln(n);
writeln;
writeln('Masukkan Suku Awal atau U1');
readln(a);
writeln;
writeln('Masukkan Nilai Beda');
readln(b);

Sn := n*2 div 4*(2*a+(n-1)*b);

writeln('-----*** Hasil ***-----');
writeln;
writeln('Diketahui');
writeln('Suku ke n Sebesar                              : ', n);
writeln('Suku Awal Sebesar                              : ', a);
writeln('Nilai Beda Sebesar                             : ', b);
writeln('Maka, Deret n= 1/2n(2a+(n-1)b) Sebesar         : ', Sn);        
writeln;
writeln('--------------------------');
writeln('Ingin Mencoa Lagi? (Y/T)');
readln(Akhir);
if(Akhir='Y')or(Akhir='y') Then Goto awal;

end.








Ini Saat Di Debug..