Pascal programming

An auto repair shop charges as follows. Inspecting the vehicle costs $75. If no work needs to be done, there is no further charge. Otherwise, the charge is $75 per hour of labour plus the cost of parts, with a minimum charge of $120. If any work is done there is no charge for inspecting the vehicle.

Write a program to read values for hours worked and cost of parts (either of which could be 0) and print charge for the job.

Program Lesson1_Program3;

Var        

   InspectionCost, hoursworked, costperhour, costofparts, Totalcost, : Integer;

Begin {no semicolon}

   InspectionCost:=75; costofparts:=0; costperhour:=0;

Write('Input Number of hours worked:');  

Readln(hoursworked);

:= costperhour * hoursworked;

Writeln('Input cost of parts:');

Readln(costofparts);

Totalcost:=InspectionCost + + costofparts;

if Totalcost < 120 then

    Totalcost:=75

   else

    Totalcost:=InspectionCost + + costofparts;

Writeln('Totalcost=',Totalcost);

Readln;

End.

Explanation:

Please check the answer section.

this seems to be in the wrong category. but i'll take some free points my dude

posting this in wrong category will result in people seeing it who won't know the answer.