Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим количеством банкнот по 500 (k500), 100 (k100), 50(k50, и 10 рублей (к10

var

  s : integer;

begin

  read (s);

  writeln ('500 =', s div 500);

  s : = s mod 500;

  writeln ('100 = ', s div 100);

  s : = s mod 100;

  writeln ('50 =', s div 50);

  s : = s mod 50;

  writeln ('10 = ', s div 10);

  s : = s mod 10;

  writeln ('не смог сдать = ', s);

end.

строка меню, строка заголовка, закрывающая кнопка, сворачивающая кнопка, разворачивающая кнопка, полосы прокрутки, рамка окна, рабочая область.