{Eine dufte Programmgestaltung !!  Alles OK !
 Wertung:15 Punkte      18.12.97  }

Program Oel;      { Ist ein Programm, welches Heiz�lkosten berechnet.}
uses crt;
var Name,Strasse,Ort,Postleitzahl,Auftragsdatum,Lieferdatum  : string;
    Menge,Lpreis,Summe,Rabat,Endsumme1,Endsumme2,Mwst,Skonto : real;
                                        eingabe1,eingabe2,tr : char;
                                                           a : integer;

BEGIN
   Menge := 0;
   Lpreis := 0;
   Summe := 0;
   Rabat := 0;
   Endsumme1 := 0;
   Endsumme2 := 0;
   Mwst := 0;
   Skonto := 0;
   textcolor(red);
   textbackground(black);
   clrscr;
   for a:=1 to 24 do
     begin
         gotoxy(a,a);
         write(' Andreas Hadel ');
         delay(200);
      end;
   for a:=24 downto 1 do
     begin
          gotoxy(a+16,a);
          write(' pr�sentiert ');
          delay(200);
     end;
     for a:=1 to 24 do
     begin
         gotoxy(a+30,a);
         write(' den OELABRECHNER ');
         delay(200);
      end;
      delay(2000);
   while eingabe1 <> chr(27) do begin
      textcolor(yellow);
      textbackground(red);
      clrscr;
      writeln('                      Terminal');
      writeln;writeln;
      writeln('       Rechnung erstellen [ r ]');
      writeln('       Info               [ i ]');
      writeln('       Exit               [ esc ]');
      eingabe1 := readkey;
      if eingabe1 = 'r' then
         begin
              textcolor(red);
              textbackground(black);
              clrscr;
              write('Name : ');
              readln(name);
              write('Stra�e : ');
              readln(strasse);
              write('Ort : ');
              readln(ort);
              write('Postleitzahl : ');
              readln(postleitzahl);
              write('Auftragsdatum : ');
              readln(Auftragsdatum);
              write('Lieferdatum : ');
              readln(Lieferdatum);
              write('gelieferte Menge : ');
              readln(Menge);
              write('Lieterpreis : ');
              readln(LPreis);
              write('Barbezahlung [j/n] : ');
              eingabe2 := readkey;
      if Menge < 999 then
             begin
                  Summe := Menge * LPreis;
             end else
      if (menge > 999) and (menge < 2999) then
             begin
                  Rabat := Menge * LPreis * 0.05;
                  Summe := Menge * LPreis - Rabat;
             end else
      if (Menge > 2999) and (menge <4999) then
             begin
                  Rabat := Menge * LPreis * 0.1;
                  Summe := Menge * LPreis - Rabat;
             end else
             begin
                  Rabat := Menge * LPreis *0.15;
                  Summe := Menge * LPreis - Rabat;
             end;
       Mwst := Summe * 0.16;
       Endsumme1 := Summe + Mwst;
       Skonto := Endsumme1 * 0.02;
       if eingabe2 ='n' then Skonto := 0;
       Endsumme2 := Endsumme1 - Skonto;
      textcolor(yellow);
      textbackground(red);
      clrscr;
      writeln(name:10);
      writeln(strasse:10);
      writeln(ort:10);
      writeln(postleitzahl:10);
      gotoxy(30,1);
      writeln('Auftragsdatum : ',auftragsdatum);
      gotoxy(30,2);
      writeln('Lieferdatum : ',lieferdatum);
      gotoxy(1,6);
      writeln(' Gelieferte Menge �L        : ',menge:3:2,' Liter');
      writeln(' Preis pro Liter            : ',LPreis:3:2,' DM');
      writeln(' Betrag                     : ',(menge*lpreis):3:2,' DM');
      writeln(' Rabatt                     : ',Rabat:3:2,' DM');
      writeln(' Betrag - Rabatt            : ',summe:3:2,' DM');
      writeln(' Mehrwertsteuer             : ',mwst:3:2,' DM');
      writeln(' Betrag zzg. Mehrwertsteuer : ',Endsumme1:3:2,' DM');
      writeln(' Skonto                     : ',Skonto:3:2,' DM');
      writeln(' Betrag - Skonto            : ',Endsumme2:3:2,' DM');
      writeln;
      writeln(' Der zu zahlende Betrag lautet : ',Endsumme2:3:2,' DM');
      tr := readkey;
     end;
    if eingabe1 = 'i' then
    begin
      textcolor(yellow);
      textbackground(red);
      clrscr;
      writeln('------------------------------Informationen-------------------------------------');
      writeln;
      textcolor(white);
      writeln;
      writeln('                              Oelabrechner    ');
      writeln;
      writeln('                              Version 1.0 ');
      writeln;
      writeln('                           Copyright (c) 1997 by');
      writeln;
      writeln('                              Andreas Hadel');
      tr := readkey;
 end;
       if eingabe1 = chr(27) then
        begin
         textcolor(white);
         textbackground(black);
         clrscr;
         writeln('         Vielen Dank f�r die Benutzung dieser Software !');
         writeln('                                      - Andreas Hadel - ');
       end;
    end;
END.