gistfile1.pas

Program n1;
var a, b, c, d:integer;
begin
writeln('Введите сумму имеющихся у вас денег');
readln(a);
Writeln('Введите стоимость одной единицы товара');
readln(b);
c:=a div b;
d:=a mod b;
Writeln('Вы можете купить ', c, ' единиц товара');
writeln('У вас останется ', d, ' единиц денег');
end.