program page46q5; uses wincrt;
var inch : integer;
    cm : real;
begin
  write('Enter a length in inches: ');
  readln(inch);
  cm := inch*2.54;
  writeln(inch,' inches is equivalent to ',cm:0:2,' cm')
end.

program page46q6; uses wincrt;
const Pboard = 1200; Pcard = 500; Pdrive = 800; Pmouse = 100;
var Nboard, Ncard, Ndrive, Nmouse : integer;
    Aboard, Acard, Adrive, Amouse, total : real;
begin
  write('Number of Mother board: ');
  readln(Nboard);
  write('Number of RAM card: ');
  readln(Ncard);
  write('Number of Disk drive: ');
  readln(Ndrive);
  write('Number of Mouse: ');
  readln(Nmouse);
  writeln;
  Aboard := Nboard*Pboard;
  Acard := Ncard*Pcard;
  Adrive := Ndrive*Pdrive;
  Amouse := Nmouse*Pmouse;
  total := Aboard+Acard+Adrive+Amouse;
  writeln('ITEM':10,'Amount':21);
  writeln(Nboard:2,' Mother board','$':5,Aboard:11:2);
  writeln(Ncard:2,' RAM card',Acard:20:2);
  writeln(Ndrive:2,' Disk drive',Adrive:18:2);
  writeln(Nmouse:2,' Mouse',Amouse:23:2);
  writeln('   TOTAL','$':12,total:11:2)
end.

program page46q7; uses wincrt;
var num1, num2, product, remainder, quotient : integer;
begin
  write('First number: ');
  readln(num1);
  write('Second number: ');
  readln(num2);
  writeln;
  product := num1*num2;
  remainder := trunc(num1 div num2);
  quotient := num1 mod num2;
  writeln(num1:9,remainder:19,'..',quotient);
  writeln('X',num2:8,'------':19);
  writeln('---------',num2:12,')',num1:6);
  writeln(product:9)
end.

program page46q8; uses wincrt;
var num1, num2, num2a, num2b, pro1, pro2, result : integer;
begin
  write('First number(two-digit integer): ');
  readln(num1);
  write('Second number(two-digit integer): ');
  readln(num2);
  writeln;
  num2a := num2 div 10;
  num2b := num2-num2a*10;
  pro1 := num1*num2a;
  pro2 := num1*num2b;
  result := pro1*10+pro2;
  writeln(num1:9);
  writeln('X',num2:8);
  writeln('---------');
  writeln(pro1:8);
  writeln(pro2:9);
  writeln('---------');
  writeln(result:9)
end.