program Estimator;

var

height, width, length : real;
Ceiling, walls : real;
Paint1, Paint2 : real;
Cust: integer;
Litres1 : integer;
Litres2 : integer;
paperolls : integer;
doors : integer;
windows : integer;
Vat : real;
Total : real;


begin (* Main *)
writeln ('Joe Blakes Painting & Decorating Tel: 01522 522522');
readln;
writeln <'Enter the Customers name:'>;
readln<Cust>;
writeln <'Please Enter the dimensions of the room'>;
readln;
writeln<'Enter the height in metres:'>;
readln<height>;
write<'Enter the width in metres:'>;
readln<width>;
write<'Enter the length in metres:'>;
readln<length>;
Ceiling:=width*length;
paint1:=ceiling/8;
walls:=<length + width>*2*height;
paint2:= walls/6;
writeln<'ceiling needs',paint1:0:1,'litres');
write<'walls need',paint2:0:1,'litres');
end;

begin

litres1 := 03.50
litres2 := 04.00

end.

(* Author:    Alex N
   Date:      12 November 2007
   Description:
      Painting & Decorating cost estimator
*)



program  JoeBlakesEstimator;    {program name}
uses crt;

var
   customername : string; {List of variablez}
   Joe: string;
   length : integer;
   width : integer;
   windows : integer;
   doors : integer;
   squareroom : integer;
   ceilingcost : integer;
   wallcost : integer;
   woodworkcost : integer;
   doors2 : integer;
   windows2 : integer;
   litres1 : real;
   litres2 : real;
   litres3 : real;
   rollp : char;
   rollp2 : integer;
   total : real;
   total1 : real;
   total2 : real;
   total3 : real;
   subtotal : real;
   finaltotal : real;
   vattotal : real;
   close : char;

const
     emulsion = 3.50;           {list of constants, values that never change}
     gloss = 4.00;
     wallpaper = 3.00;
     VAT = 0.175;

 procedure reset;

  begin
     litres1 := 0;           {resets some values}
     litres2 := 0;
     litres3 := 0;
     rollp2  := 0;;
  end;

 procedure inputs;              {this is where the specified information is input}

  begin
     clrscr;
     writeln('Enter customer name');
     readln(customername);
     writeln('Enter the Length (metres)');
     readln(length);
     writeln('Enter the Width (metres)');
     readln(width);
     writeln('How many doors?');
     readln(doors);
     writeln('How many windows?');
     readln(windows);
     writeln('rolls of paper? (Y/N)');
     readln(rollp);
  end;

 procedure calculations;         {the calculations for the information}
  begin
     doors2 := doors * 2;
     windows2 := windows * 2;
     squareroom := length * width + doors2 + windows2;
     litres1 := squareroom div 8;
     litres2 := squareroom div 8;
     litres3 := squareroom div 6;
     If rollp = 'Y' then
     rollp2 := 4;
     total := litres1 * emulsion;
     total1 := litres2 * emulsion;
     total2 := rollp2 * wallpaper;
     total3 := litres3 * gloss;
     subtotal := total + total1 + total2 + total3;
     vattotal := subtotal * vat;
     finaltotal := subtotal + vattotal;
  end;

 procedure display;             {This gives you the end product after the calculations have been made}
  begin
     repeat
     writeln(' Joe Blake Painting & decorating ');
     writeln(' Estimate of costs for ',customername);
     writeln('');
     writeln('MATERIALS');                                                    {sets number of decimal places}
     writeln('Ceiling:           ', litres1:0:2,' litres           @',' £',emulsion:0:2,' per litre         ','£',total:0:2);
     writeln('Walls:             ', litres2:0:2,' litres           @',' £',emulsion:0:2,' per litre         ','£',total1:0:2);
     writeln('Rolls for Walls:   ',rollp2,' rolls of paper       @',' £',wallpaper:0:2,' per roll          ','£',total2:0:2);
     writeln('Woodwork:          ',litres3:0:2,' litres           @',' £',gloss:0:2,' per litre        ','£',total3:0:2);
     writeln('SUB TOTAL                  ','£',subtotal:0:2);
     writeln('VAT @17.5 %                ','£',vattotal:0:2);
     writeln('FINAL TOTAL                ','£',finaltotal:0:2);
     writeln('Would you like to run again? (Y/N)');
     readln(close);                                  {asks if the program would like to be re run}
     until close = 'n';
     readln;
 end;

 begin
     reset;
     inputs;
     calculations;
     display;
end.