Juros cartão.

Agora vamos supor que meu colega esteja com o cartão de crédito em atraso
vamos ver um programa que veja o valor da prestação a taxa de juros e os
dias em atraso.
__________________________________________________________________________________

program cartao;
var prestacao, valor, juros, totaljuros, total: real;
    atraso: integer;


begin
  write('digite o valor da prestacao.::');
  readln(prestacao);
  write('digite a taxa de juros......::');
  readln(juros);
  write('Dias em atraso..............::');
  readln(atraso);
  valor :=(prestacao * juros)/100 * atraso;
  totaljuros :=(prestacao - valor);
  total := (prestacao + valor);
  juros :=(prestacao - totaljuros);
  writeln('digite o valor da prestacao...........::',prestacao:6:2);
  writeln('digite o valor do juros... ...........::',juros:6:2);
  writeln('digite a quantidade de dias em atraso.::',atraso);
  writeln('digite o valor total com juros.........::',total:6:2);
  readln;

end.