Máquina expendedora

%Introduce monedas hasta alcanzar el precio del producto (precio fijo).
%Sean n el precio del producto, a el valor de la moneda introducida y s el dinero introducido
%hasta el momento
input n;
s=0;
while s<n;
input a;
while a ̴= (10|20|50|100|200);
 input a;
end
s=s+a;
end
%Sea c el cambio a devolver
c=s-n;
display `Expendiendo el producto´;
display `Cambio a devolver:´; c