Var s1,s2,v1,v2:integer;
begin
writeln(Введите путь и скорость автомобиля);
readln(s1,v1);
writeln(Введите путь и скорость мотоцикла);
readln(s2,v2);
if s1/v1 gt; s2/v2 then writeln(Мотоцикл приехал первый)
else if s1/v1=s2/v2 then writeln(Автомобиль приехал одновременно с мотоциклом)
else writeln(Автомобиль приехал первый);
end.