program weight;
uses crt;

{--------------------------------------------------------------------------
This program reads a person's weight and then tells them what it would be
on other planets.

                        by 

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


VAR w : integer;
w2 : real;
planet:integer;
begin

clrscr;
writeln ('This program will tell you how much you weigh on another planet!!');
write ('How much do you weigh, in pounds? --->  ');
readln (w);
writeln;
writeln ('Which planet? (Press the number of your choice)');
write ('Your choices are 1 : Moon,  2 : Jupiter,  3 : Venus,  4 : Mars --->  ');
readln (planet);

writeln;
writeln;
writeln ('You would weigh:');
writeln;
case planet of
1 : begin
w2 := w * 0.16;
writeln (     w2:0:0,' pounds on the Moon');
end;
2 : begin
w2 := w * 2.64;
writeln (     w2:0:0,' pounds on Jupiter');
end;
3 : begin
w2 := w * 0.82;
writeln (     w2:0:0,' pounds on Venus');
end;
4 : begin
w2 := w * 0.38;
writeln (     w2:0:0,' pounds on Mars');
end;
end;

readkey;

end.