program A_Julian_Gehring;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Gewicht,Laenge,Breite: double;
    Antwort:string;


procedure eingabe (var Gewicht,Laenge,Breite:double);

begin

writeln('Wie schwer ist Ihr Paket in Kilogramm?');
readln(Gewicht);
writeln('Wie breit ist ihr Paket in Zentimetern? (kuerzeres der beiden Masse)');
readln(Breite);
writeln('Wie lang ist Ihr Paket in Zentimetern? (Laengeres der beiden Masse)');
readln(Laenge);

end;


begin

Antwort:='JA';

while (Antwort='JA') do

begin

eingabe(Gewicht,Laenge,Breite);

  if (Gewicht>0) and (Gewicht<=0.25) and (Laenge>0) and (Laenge<=35) and (Breite>0) and (Breite<=20) then
  begin
  writeln('Das guenstigste Angebot ist: DHL-Grossbrief     Preis: 1.55 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=2) and (Laenge>0) and (Laenge<=40) and (Breite>0) and (Breite<=30) then
  begin
  writeln('Das guenstigste Angebot ist: DHL-Paeckchen     Preis: 3.95 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=5) and (Laenge>0) and (Laenge<=50) and (Breite>0) and (Breite<=40) then
  begin
  writeln('Das guenstigste Angebot ist: UPS-Paeckchen     Preis: 4.95 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=7) and (Laenge>0) and (Laenge<=50) and (Breite>0) and (Breite<=40) then
  begin
  writeln('Das guenstigste Angebot ist: FedEX-Paket Standardformat    Preis: 6.00 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=15) and (Laenge>0) and (Laenge<=50) and (Breite>0) and (Breite<=50) then
  begin
  writeln('Das guenstigste Angebot ist: UPS-Paket Standardformat    Preis: 7.00 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=10) and (Laenge>0) and (Laenge<=60) and (Breite>0) and (Breite<=50) then
  begin
  writeln('Das guenstigste Angebot ist: DHL-Paket Standardformat     Preis: 7.95 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=20) and (Laenge>0) and (Laenge<=90) and (Breite>0) and (Breite<=80) then
  begin
  writeln('Das guenstigste Angebot ist: FedEX-Paket Sonderformat     Preis: 10.00 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=30) and (Laenge>0) and (Laenge<=80) and (Breite>0) and (Breite<=70) then
  begin
  writeln('Das guenstigste Angebot ist: UPS-Paket Sonderformat     Preis: 14.00 Euro');
  readln;
  end
  else
  if (Gewicht>0) and (Gewicht<=50) and (Laenge>0) and (Laenge<=100) and (Breite>0) and (Breite<=70) then
  begin
  writeln('Das guenstigste Angebot ist: DHL-Paket Sonderformat     Preis: 15.95 Euro');
  readln;
  end
  else
  begin
  writeln('Es wurde leider kein passendes Angebot fuer Sie gefunden.');
  readln;
  end;

writeln('Wollen Sie noch ein weiteres Paket berechnen lassen? Falls ja schreiben Sie "Ja" Falls nicht, druecken sie eine beliebige Taste');
readln(Antwort);

if (Antwort='Ja') or (Antwort='ja') or (Antwort='JA') then
Antwort:='JA'

else

begin
Antwort:=' ';
writeln('Auf Wiedersehen!');
readln;
end;

end;

end.