Resposta do Exercício de PASCAL - Conta atrasada

Program contaatrasada ;
var
conta,juros,multa,valorfinal: real;
dias: integer;
Begin
writeln ('Digite o valor da conta: ');
read (conta);
writeln ('Digite a quantidade de dias de atraso: ');
read (dias);
multa := (5/100) * conta;
juros := (0.33/100) * conta * dias;
valorfinal := conta + multa + juros;
writeln ('O valor a ser pago e: ',valorfinal:3:2);
End.