Perhitungan generator dc kompon pendek dan kompon panjang

Aplikasi yang saya buat ini bertujuan untuk menghitung nilai generator kompon pendek dan kompon panjang. Terdapat 2 pilihan untuk menghitung kompon pendek dan kompon panjang. Cara kerja program ini adalah dengan mengolah input Ia,Ra,Rsr,Vt,Vs,Il. Output yang dihasilkan sesuai dengan pilihan perhitungan.

flowchart:

source code:
 program Perhitungan_kompon_pendek_dan_kompon_panjang;
uses crt;
var
Ea,Ia,Ra,Il,Vsh,Vt,Vs,Rsr : integer;
pilihan1,pilihan2:string;

begin
clrscr;
write('apakah anda ingin menghitung kompon panjang ? (y atau t)');
readln(pilihan1);

if(pilihan1 = 'y')then
begin
  writeln('masukan nilai Ia,Ra,Rsr,Vt,Vs');
  writeln('diprogram untuk mencari nilai kompon panjang');
  writeln;
  write('nilai Ia=');readln(Ia);
  write('nilai Ra=');readln(Ra);
  write('nilai Rsr=');readln(Rsr);
  write('nilai Vt=');readln(Vt);
  write('nilai Vs=');readln(Vs);
  Ea:=(Ia*Ra)+(Ia*Rsr)+Vt+Vs;
  write('Hasil Kompon Panjang (Ea):',Ia,'*',Ra,'+',Ia,'*',Rsr,'+',Vt,'+',Vs,'=',Ea);
  readln;
  end
  else if (pilihan1 = 't')then
  begin
    write('apakah anda ingin menghitung nilai Kompon pendek ? (y atau t)');
    readln(pilihan2);

    if(pilihan2='y')then
    begin
      writeln('masukan nilai Ia,Ra,Il,Rsr,Vt,Vs');
      writeln('di program untuk mencari nilai Kompon Pendek');
      writeln;
      writeln('nilai Ia :');readln(Ia);
      writeln('nilai Ra :');readln(Ra);
      Writeln('nilai Il :');readln(Il);
      Writeln('nilai Rsr :');readln(Rsr);
      writeln('nilai Vt :');readln(Vt);
      writeln('nilai Vs :');readln(Vs);
      Ea:=(Ia*Ra)+(Il*Rsr)+Vt+Vs;
      writeln('nilai Kompon Pendek (Ea) :',Ia,'*',Ra,'+',Il,'*',Rsr,'+',Vt,'+',Vs,'=',Ea);
      readln;
    end
    else if(pilihan2='t')then
    begin
      writeln('tidak dapat menghitung nilai Kompon Pendek dan Kompon Panjang');
    end
    else
    begin
      writeln('salah input');
    end;
end
else
 writeln('salah input');
end.

readln;

end.