Probleme mit Benzinverbrauchsberechnung

[Rayzen]

Halli Hallo,

hab mal wieder Probleme mit den Hausaufgaben

Bei diesem Programm ist das Problem mit den Kommazahlen, ich hätte gerne eine normale ausgabe der kommazahlen aber er zeigt mir nur 1,100000000000+0002 oder ähnlich an.

Delphi-Quellcode:

program Trainierenrichtig;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var mp,alter,Hf:integer;
fp,ap:real;
begin
Writeln ('Trainieren sie richtig?');
writeln ('~~~~~~~~~~~~~~~~~~~~~~~');
write ('Wie alt sind sie:'); readln (alter);
MP:=220;
fp:=(MP/100)*50;
ap:=(MP/100)*75;
writeln ('Maxpuls:',mp);
write ('Puls sollte zwischen',fp);
write('und',ap);
write ('liegen');

readln;
end.

Dieses Programm läuft leider überhaupt nicht und ich hab keine Ahnung warum

Delphi-Quellcode:

program Benzinverbrauch;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var km_alt,km_neu,fahrstrecke,tankmenge,durchschnitt,preis,kosten,durchschnittsverbrauch
:real;
begin
writeln ('Berechnung des durchschnittlichen Benzinverbrauchs in l/100km');
writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write ('alter Km-stand:'); readln (km_alt);
write ('neuer Km-Stand:'); readln (km_neu);
write ('Tankmenge in l:'); readln (tankmenge);
write ('Preis in € pro l:'); readln (preis);
writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
fahrstrecke:=km_neu-km_alt;
durchschnitt:=tankmenge/fahrstrecke*100;
kosten:=durchschnittsverbrauch*durchschnitt:5:2,'l/100km';
writeln ('Die Benzinkosten:'), kosten:5:2,'fuer 100km';
Readln;

end.

Der Fehler soll hier sein

Zitat:

kosten:=durchschnittsverbrauch*durchschnitt:5:2,'l/100km';

Wäre nett wenn ihr mir helfen könntet

Mit freundlichen Grüßen
Rayzen