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

Program Begin33;

Var
  A, X, Y: Real;

Begin
  WriteLn('Введите A');
  ReadLn(A);
  WriteLn('Введите X');
  ReadLn(X);
  WriteLn('1 кг стоит ', A / X, ' рублей');
  ReadLn;

End.