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