Миша живет на n-м этаже. Когда Миша заходит в подъезд, он смотрит, на каком этаже

в этот момент находится лифт и решает, вызвать лифт или пойти по лестнице.

Сегодня лифт находится на k-м этаже. Миша заходит в подъезд на 1 этаже. Он подни-

мается на один этаж за a секунд. Лифт перемещается на один этаж за b секунд. Временем

входа в лифт и выхода из лифта, а также перемещения к лестнице и обратно можно пре-

небречь.

Мише нужно как можно быстрее попасть домой. Помогите Мише принять решение - идти ему по лестнице или ехать на лифте. (Программа Pascal ABC)

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.