program proc3;
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;
quit : char;
procedure input;
begin
textcolor (green);
write ('Please enter your height in centimeters --->  ');
readln(c);
writeln;
write ('Now enter your weight in kilograms --->  ');
readln(k);
writeln;
end;

procedure calc;
begin
i := c / centperinch;
p := k / kiloperpound;
end;

procedure output;
begin
writeln;
textcolor (red);
writeln ('Your height in inches is ',i:0:2,' and your weight in pounds is ',p:0:2);
end;


begin

repeat
clrscr;
input;
calc;
output;
writeln;
writeln;
write ('Do you want to quit? (type Y or N) --->  ');
quit := upcase(readkey);
until quit = 'Y';
end.