Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок — Pascal(Паскаль)

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.