Localize file www.TrSek.com/zadania/rychlost.pas
{ RYCHLOST.PAS                            Copyright (c) Pavel Patak }
{ Po zadani drahy a casu vypocte prumernou rychlost,                }
{ predpoklada se s,t > 0                                            }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }

Program Rychlost;

Var s, t, v : Real;

Begin
   Write('Urazenou dráhu s = ');
   Readln(s);
   Write('Potrebny cas t = ');
   Readln(t);
   Writeln;
   Writeln('v = ',s/t:5:2);
   Readln;
End.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com