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.