//PascalABC.NET Версия 3.0 Сборка 1150
var n:integer;
begin
writeln('Сколько стоит товар?');
readln(n);
n:=1000-n;
writeln('Сдача ',n,' рублей. Нужны купюры:');
writeln(n div 500, ' по 500 рублей, ', (n-(n div 500)*500)div 100, ' по 100 рублей, ', (n mod 100) div 50, ' по 50 рублей, ', (n-(n div 50)*50) div 10,' по 10 рублей, и ещё ', n mod 10, ' рублей мелочью.');
<span>end.
Результат работы:
Сколько стоит товар?
324
Сдача 676 рублей.
Нужны купюры:
1 по 500 рублей, 1 по 100 рублей, 1 по 50 рублей, 2 по 10 рублей, и ещё 6 рублей мелочью.<span>
</span></span>
А, б, г, е, з насчёт почты не очень уверен
Не заданы значения переменных.
Правильный код:
<span>program Lipov_2;
var a, b, k: integer;
begin
a:=14;
b:=365;
writeln('a=', a);
</span>writeln('b=', b); <span>
k:=a*b;
writeln(a,'*',b,'=', k);
end.</span>
Переменная sum после выполнения программы будет равна 2.
Плохо видно .Извени не могу ответеть на твой вопрос