Задача Автомат продает шоколадки одного вида. Покупатель вносит денежные средства в купюроприемник. Автомат выдает ему шоколадку и сдачу, если денег достаточно, и сообщает о том, что средств недостаточно, в противном случае. Создайте алгоритм и напишите программу на Паскале для работы данного автомата
var a,b:integer;
begin
writeln('Шоколадка стоит 10 копеек');
writeln('Введите сколько денег вы хотите внести');
readln(a);
b:=a-10;
if b>=0 then
writeln('Вот ваша шоколадка(ваша сдача=',b,')')
else
writeln('У вас недостаточно средств')
end.