{* Задача 564 *}

Unit ZADACH564;
Interface
Implementation
Begin
 writeln(' Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц товара сможет купить покупатель и какова его сдача?');
End.

Program zadach564;

Uses zadach564.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  summa : real;
  st    : real;
Begin
  clrscr; {* Очищаем экран *}
  write('Введите сумму денег в руб.-');
  read(summa);
  write('Введите стоимость ед.товара в руб.-');
  read(st);
  writeln('Можно купить ', int(summa / st) : 2:0, ' ед. товара');
  writeln('Сдача составит ', summa - st * int(summa / st) : 2:2, ' руб.');
  readkey; {* Ждем нажатия любой клавиши *}
End.