(*     TERESA TONG F.4AS 20/9/2001     *)
(*       To convert kg to pound        *)

PROGRAM KG_TO_POUND;
USES WINCRT;
VAR WEIGHT, POUND :INTEGER;
BEGIN
   WRITE ('Give the weight in KG');
   READLN (WEIGHT);
   POUND :=WEIGHT * 22 div 10;
   WRITELN;
   WRITELN ('The weight is ' ,pound, ' pound ');
   end.
-------------------------------------
e.g.
Give the weight in KG            55

The weight is 121 pound

    Source: geocities.com/ttt_7_ttt/home6

               ( geocities.com/ttt_7_ttt)