Pascalda Banka Faiz Hesabı Yapan Program, Pascalda Faiz Hesaplama

Uses Crt;
     Var
        ana_p,oran:real;
        Yil:Integer;
        hedef:Real;

        Begin
   clrscr;
   Write('Ana para miktarı='); Readln(ana_p);
   Write('Yıllık faiz Oranı='); Readln(oran);
   Write('Ulaşılması istenen miktar='); Readln(hedef);

   While ana_p
        Begin
   ana_p:=ana_p+(ana_p*oran/100);
   Yil:=Yil+1;
        End;
   Writeln(Yil,' Yıl Sonra Ulaşılacak miktar',hedef:10:2,' tir.');
   Readln;
        End.