program Project4; {$APPTYPE CONSOLE} var v1,v2,v3,n,y,z:real; begin writeln('Vvedit shvydkist teplohoda'); readln(v1); writeln('Vvedit cherez skilki v teplohoda zupynka'); readln(y); writeln('Vvedit chas stoyanki teplohoda'); readln(z); writeln('Vvedit shvydkist turysta'); readln(v2); writeln('Vvedit cherez skilki chasu turyst peredumae i vernetsia'); readln(N); writeln('Vvedit shvydkist turysta po richci nazad'); readln(v3); if (((v1*y)+(v2*n))/v3)+n<=y+z then writeln('Vspie iz zapasom ',(((y+z+n)-(((v1*y)+(v2*n))/v3))*60):5:2,' hvylyn') else writeln('ne vspie is zapiznenniam ',(((y+z+n)-(((v1*y)+(v2*n))/v3))*60):5:2,' hvylyn'); readln; end.