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

Решаем через пропорции X/A = 1/Y

Program Begin33;
Var
A,X,Y:Real;
Begin
WriteLn('Введите A');
ReadLn(A);
WriteLn('Введите X');
ReadLn(X);
WriteLn('1 кг стоит ',A/X,' рублей');
ReadLn;
End. 

автор: Sklyarov Sergej a.k.a. S9