program spritr;
uses crt;
var km,verbr,pr,db,kosten :real;

begin
clrscr;
writeln ('DER SPRITRECHNER');
writeln ('----------------');
writeln ('!!!!Als Komma bitte ein Punkt nutzen!!!!') ;
writeln;
writeln;
write ('Wie viel Kilometer sind Sie gefahren? ');readln (km);
write ('Wie viel Lieter Kraftstoff haben Sie verbraucht? ');readln (verbr);
write ('Fahren Sie mit Diesel[1]  oder Benzin[2]? ');readln (db);
write ('Wie ist der aktuelle Lieterpreis in Euro  ihres Kraftstoffes? ');readln (pr);
writeln ('#############################################################');
(*Rechenteil Beginnt*)
kosten :=verbr/km*100*pr;
if db = 1 then
write ('Bei einer Strecke von ',km:2:2,'km und einen Gesamtverbrauch von ',verbr:2:2,'l Diesel und einen Lieterpreis von ',pr:2:2,' Euro betragen die Kosten auf 100km ',kosten:2:2,' Euro!')
else
write ('Bei einer Strecke von ',km:2:2,'km und einen Gesamtverbrauch von ',verbr:2:2,'l Benzin und einen Lieterpreis von ',pr:2:2,' Euro betragen die Kosten auf 100km ',kosten:2:2,' Euro!');

readkey
end.