ну, во-первых, такого имени у программы быть не может - да и точки с запятой в первой строке не хватает.
writeln('b=',(x*0.005);
writeln('c=',(x*0.01);
посчитай скобочки в каждой из строк...
writeln('d=',(d:=x-a-b-c);
что за попытка присваивания? так нельзя.
и вообще, что за извращения с выводом? есть переменные, значения которых интересуют - их и выводи, а не считай заново:
writeln('d=',d);