Известна сумма денег S , имеющаяся у покупателя и стоимость одной единицы товара Z. Сколько единиц товара сможет купить покупатель и какова его сдача C?

var s,z,k,c:integer;beginwrite('s = ');readln(s);write('z = ');readln(z);k:=s div z;c:=s mod z;writeln('Кол-во товара: ',k,', сдача: ',c);end.Пример:s = 120z = 50Кол-во товара: 2, сдача: 20