exercicio2

{*Elabore um programa que calcule quantas notas de 50, 10 e 1
são necessaria para se pagar uma conta cujo valor é fornecido*}
program pagamento;
var valor:integer;
const
    n1=50;
    n2=10;
    n3=1;
begin
    {*Entrada*}
    writeln('escreva o valor da conta');
    readln(valor);
    {*Processamento*}
    writeln(valor DIV n1, ' notas de 50, ' , valor MOD n1 DIV n2 ,
     ' notas de 10 e ' ,valor MOD n2 DIV n3 , ' notas de 1' );
    {*Pause*}
    readln();

end.