{ SPOTREBA.PAS                            Copyright (c) Pavel Patak }
{ Po zadani ujetych kilometru a spotrebovaných litru paliva vypocte }
{ spotrebu na 100km.                                                }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Spotreba;
 
Var Km, Litru : Real;
 
Begin
   Write('Zadej pocet ujetych kilometru : ');
   Readln(Km);
   Write('Nyni udej mnozstvi spotrebovaneho paliva v litrech : ');
   Readln(Litru);
   Writeln;
   Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');
	{Pokud nechcete, aby byl vysledek udan v hnusném real-tvaru, pouzijte :
          Litru/KM*100:PocetMist:PocetDesetinnýchMíst, tedy :
   Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');}
   Readln;
End.