Program Sparbank;
uses crt;
Var   a,b,Jahr   : integer;
    Summe,Betrag : real;
    Taste,tr     : char;
 Procedure Intro;
  Var Textfeld : string;
  Begin
       Textfeld := 'Willkommen zu Ihrer Online - Sparkasse';
       textbackground(black);
       textcolor(blue);
       clrscr;
       gotoxy(5,5);
       for a :=1 to 38 do
        begin
             write(textfeld[a]);
             delay(200);
        end;
        delay(2000);
  End;

 Procedure Spar1;
 Begin
      Summe :=0;
      textcolor(green);
      clrscr;
      Writeln(' Zahlen Sie einen gewissen Betrag regelm„áig ein und erhalten Sie 3% Zinsen nach 12 Monaten !!');
      writeln;
      writeln(' Welchen Betrag sind Sie gewillt zu zahlen ?');
      readln(Betrag);
      writeln(' šber welchen Zeitraum soll der Vertrag gelten ?');
      readln(Jahr);
       for a := 1 to Jahr do
                          Summe := (Summe+Betrag*12)*0.03 + Betrag*12+Summe;
       writeln('Sie haben ',jahr:2,' Jahr(e) den Betrag von ',betrag:2:2,' DM monatlich eingezahlt.');
       writeln('Dank unseren SuperZins von 3% erhalten Sie einen Endbetrag von ',Summe:2:2,' DM.');
       writeln;
       writeln('Viel Spaá beim Geld ausgeben');
       tr := readkey;
 End;
 Procedure Spar2;
 Begin
      Summe :=0;
      textcolor(green);
      clrscr;
      writeln(' Zahlen Sie freiw„hlbaren Betrag ein (ohne Einzahlzwang) und erhalten Sie 3% Zinsen nach 12 Monaten !');
      writeln(' Wie lange wollen Sie zahlen ?');
      readln(Jahr);
      for a := 1 to Jahr do
         begin
              for b :=1 to 12 do
                 begin
                      write(b,'. Betrag : ');
                      readln(Betrag);
                      Summe := Summe + Betrag;
                      writeln('        Sie haben nun ein Sparkontenguthaben von ',Summe:2:2,' DM.');
                 end;
             Summe := Summe*0.03 + Summe;
             writeln(' Ein Jahr ist nun schon eingezahlt worden .');
             writeln(' Sie erhalten 3% Zinsen und haben somit ein Sparkontenguthaben von ',Summe:2:2,' DM.');
         end;
       tr := readkey;
 End;
 Procedure Menu;

 Begin
      clrscr;
      writeln(' Sie haben zwei M”glichkeiten Ihr Geld bei uns zu lassen :');
      gotoxy(10,10);
      textcolor(yellow);
      write('S');
      textcolor(red);
        write('upersparpacket');
      gotoxy(50,10);
      textcolor(yellow);
      write('V');
      textcolor(red);
        write('ariSpar');
      gotoxy(30,20);
      textcolor(yellow);
      write('E');
      textcolor(red);
        writeln('xit');
      Taste := readkey;
      taste :=upcase(taste);
       case taste of
        'S' : begin
                   gotoxy(10,10);
                   textcolor(red+blink);
                   write('Supersparpacket');
                   delay(2000);
                   Spar1;
              end;
        'V' : begin
                   gotoxy(50,10);
                   textcolor(red+blink);
                   write('VariSpar');
                   delay(2000);
                   Spar2;
              end;
        'E' : begin
                   textcolor(white);
                   clrscr;
                   writeln('Danke f�r Ihren Besuch !!');
                   exit;
              end;
           end;
  End;
BEGIN
     Intro;
     while taste <> 'E' do
     Menu;
END.