Пожалуйста посчитайте!!!!!!НУЖНО СОСТАВИТЬ ПРОГРАММУ

program z1;
var x,y,b:real;
begin
read(b,x);
y:=b/x;
writeln('да',y);
end.
а теперь поясню:
x-стоимость диска
b-твои деньги
y-сам результат
я старался)