Помогите пожайлуста написать программу ** языке Pascal )))))очень срочно!!!!!

Question

Помогите пожайлуста написать программу на языке Pascal )))))очень срочно!!!!!

---

Answer 1

Var 
dolCost: real;  
begin
readln(dolCost);
writeln((850 * dolCost) + (850 * 0.75 * dolCost));
end.