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

var s,z,k,c:integer;
begin
write('s = ');
readln(s);
write('z = ');
readln(z);
k:=s div z;
c:=s mod z;
writeln('Кол-во товара: ',k,', сдача: ',c);
end.

Пример:
s = 120
z = 50
Кол-во товара: 2, сдача: 20