se eu entendi, ficou assim então: Program loja; Uses crt; Var M: Srtring; PR,QPAR,ENTRADA,VALPAR,PERENTRADA : Real; Begin ClrScr; Write('Modelo: '); Readln(M); Write('Preço:' ); Readln(PR); Write('Quantidade de parcelas: '); Readln(QPAR); Write('Qual Percentual de entrada: '); Readln(PERENTRADA); ENTRADA := (PERENTRADA * PR)/100; VALPAR := (PR - ENTRADA)/QPAR; Write('A entrada é de: ', ENTRADA); Write('O valor da parcela é: ' , VALPAR); Readln End. abraço