(*Cathy Ngai F.4AS *)
(*the purpose of this program is change the KG to pound*)
program KGtoPound;
uses wincrt;
var KG,P:integer;
begin 
writeln('please enter the weight in KG');
readln(KG);
P:=KG*22div10;
writeln;
writeln(the weight is ',P,'pound');
end. 
*****************************************************************
output 1

    Source: geocities.com/hk/cathy_740

               ( geocities.com/hk)