cheque especial juros

Program cheq_especial ;

var
emprestimo, divida, juros: real;
i: integer;

Begin
writeln('Informe o valor do emprestimo');
readln(emprestimo);
divida:= emprestimo;
for i:= 1 to 6 do
divida:= divida + divida * 0.05;
write('o valor da dívida é ', divida:0:2);
readln;
End.