Program Begin34;
Var
A,X,B,Y:Real;
Begin
WriteLn('Введите A');
ReadLn(A);
WriteLn('Введите X');
ReadLn(X);
WriteLn('Введите B');
ReadLn(B);
WriteLn('Введите Y');
ReadLn(Y);
WriteLn('1 кг шоколадных конфет стоит ',A/X,' рублей');
WriteLn('1 кг ирисок стоит ',B/Y,' рублей');
WriteLn('Шоколадные конфеты дороже ирисок в ',(A/X)/(B/Y),' раз');
ReadLn;
End.