Var a,b,sek_m,sek_l:integer; begin writeln('на каком этаже живёт Миша?'); readln(a); writeln('на каком этаже находится лифт?'); readln(b); writeln('за сколько секунд Миша поднимается на этаж?'); readln(sek_m); writeln('за сколько секунд лифт поднимается на этаж?'); readln(sek_l); sek_m:=sek_m*a-sek_m; writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.'); sek_l:=(sek_l*b+sek_l*a)-sek_l; writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.'); if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени') else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому') else writeln('Мише быстрее подняться на лифте'); end.
1 Кбит/с равен 1024бит/с