{ 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.