Konversi biner oktal ke desimal

Aplikasi pascal ini di buat untuk mengkonversi bilangan dari biner dan oktal ke desimal. Cara kerja aplikasi ini yaitu dengan memilih ingin mengkonversi biner terlebih dahulu, atau oktal dengan pilihan angka pada home screen, jika sudah masukkan input sesuai yang sudah dipilih, maka tekan enter untuk masuk ke sub menu yg sudah dipilih, kemudian masukkan berapa digit angka yang ingin dikonversikan, lalu masukkan bilangan yang ingin di konversikan, lalu tekan enter untuk melihat hasil.

Source code

program konversi;
uses crt;
type
bilangan=record
a,b,hasil : integer;
end;
var n,i,basis,b,a,total : integer;
pilihan : integer;
bil : array[1..50] of bilangan;

procedure biner;
begin
basis:=2;
writeln('Program Konversi Biner ke Desimal');
writeln('Basis Bilangan = ',basis);
write('Masukkan Jumlah Bilangan = ');readln(n);
for i:=1 to n do
begin
write('Masukkan bilangan ke',i,' = ');readln(bil[i].a);
bil[i].b:=bil[i].a;
bil[i].hasil:=bil[i].hasil+bil[i].b;
if i=2 then
begin
bil[i].hasil:=bil[i].a+bil[i-1].b*basis;
end;
if i>2 then
begin
bil[i].hasil:=bil[i].b+bil[i-1].hasil*basis;
end;
n:=n+1;
end;
writeln('Hasil Konversi adalah = ',bil[i].hasil);
end;

procedure oktal;
begin
basis:=8;
writeln('Program Konversi Oktal ke Desimal');
writeln('Basis Bilangan = ',basis);
write('Masukkan Jumlah Bilangan = ');readln(n);
for i:=1 to n do
begin
write('Masukkan bilangan ke',i,' = ');readln(bil[i].a);
bil[i].b:=bil[i].a;
bil[i].hasil:=bil[i].hasil+bil[i].b;
if i=2 then
begin
bil[i].hasil:=bil[i].a+bil[i-1].b*basis;
end;
if i>2 then
begin
bil[i].hasil:=bil[i].b+bil[i-1].hasil*basis;
end;
writeln('',bil[i].hasil);
n:=n+1;
end;
writeln('Hasil Konversi adalah = ',bil[i].hasil);
end;


begin
clrscr;
writeln('Program Konversi Biner dan Oktal ke Desimal');
writeln('');
writeln('1. Biner 2.Oktal 0.Exit');
writeln('');
write('Pilih Konversi Bilangan yang ingin digunakan ( 1 atau 2 ) : ');readln(pilihan);
if pilihan=1 then
begin
clrscr;
biner;
end;
if pilihan=2 then
begin
clrscr;
oktal;
end;
readln;
if pilihan=0 then
begin
end;
end.