колько единиц товара может получить покупатель и какова сдача?
var n,z,s,x:integer;beginwriteln('Vvedite N');read(n);writeln('Vvedite Z');read(z);writeln('Vvedite S');read(s);x:=(n*z);writeln('Edinis ',x div z);writeln('Sdacha ',s mod x);end.