A caresalesman wants a programme to display the following:

REGISTRAION WHOLESALE PRICE SELL PRICE
---------------------------------------------
XYZ1546 $1000 $1400

that is how the display must look, the sale price is 40% of the wholesale.
You must use a count so that the programme will only do 5 cars.

Ok, so it has to display the Registration, Wholesale Price, and Sell Price. I assume that you have to input the Registration and the Wholesale Price.

First you need to declare variables to store all of those values. You need the registration, the wholesale price, and the sell price.

var registration : char;
var wholesalePrice : real; (it's "real" and not "integer" to accomodate any decimal points for cents)
var sellPrice : real;

Then you must assign values to those variables through keyboard input.

First your "begin" statement...

begin

writeln('Please enter the registration number: ');
read(registration);
writeln;
writeln('Please enter the wholesale price of the vehicle: ');
read(wholesalePrice);

Now you must calculate the sell price of the car. You said that the sale price is only 40% of the wholesale price... you have the wholesale price in your example at $1000 and the sell price at $1400. That's 40% MORE than the wholesale price. I'll assume that's what you meant.

sellPrice := wholesalePrice * 1.40;

Now to display the output. I'll let you figure that one out yourself... it's the easiest part of the program. =)

Now, you said that the program must only do 5 cars, so you can use a FOR loop which starts before the first "writeln" statement and ends right after you display the output.

So here is pretty much how the entire program should look. Please refrain from just copying it and being done with it for you will learn nothing and never be a good programmer. Ok, now that I've said that, here it is.

var registration : char;
var wholesalePrice : real;
var sellPrice : real;
var counter : integer;

begin

for counter := 1 to 5 do
begin
writeln('Please enter the registration number: ');
read(registration);
writeln;
writeln('Please enter the wholesale price of the vehicle: ');
read(wholesalePrice);

sellPrice := wholesalePrice * 1.40;

***CODE TO OUTPUT GOES HERE***
end;

end.

I think that should do it. If you have any more trouble, let me know.

-Warik

Just worry about thinking how to SOLVE the problem before you start thinking about how to WRITE the solution. That's the key to getting a program written. Anyone can type out lines of code, but it takes skill to have those lines of code perform a specific task as efficiently as possible.

How about you, Latimer? Are you a programmer as well?