onlik

program upe;
var m, n, h : integer; x : real; y : real;
begin
  WriteLn('ivedam per valanda nuplaukta kelia myliom');
  readln(m);
  WriteLn('ivedam upes tekmes greiti');
  readln(n);
  WriteLn('ivedam laika');
  readln(h);
  
  x :=  (m - n)* h;
  y :=  (m+n)* h;
  WriteLn('Pries srove atstumas:' ,x:4:2, 'km');
  WriteLn('Palei srove atsumas:' ,y:4:2, 'km');
  Readln;
end.