program convert;
uses crt;

{--------------------------------------------------------------------------

This program will ask you your height in centimeters and your weight in
kilograms and then convert them to inches and pounds.
                        by 

--------------------------------------------------------------------------}

CONST centperinch = 2.54;
kiloperpound = 0.45359;

VAR i,c,p,k:real;

begin

clrscr;
write ('Please enter your height in centimeters --->  ');
readln(c);
writeln;
write ('Now enter your weight in kilograms --->  ');
readln(k);
writeln;
i := c / centperinch;
p := k / kiloperpound;
writeln;
textcolor (red);
writeln ('Your height in inches is ',i:0:2,' and your weight in pounds is ',p:0:2);

readln;

end.