Pascal Cambiar de Libras a Kilos y Gramos

PROGRAM EJER72;         

USES WINCRT;        

VAR libras,kilos,gramos:REAL;

BEGIN      

ClrScr;      

WRITE ('Introduzca el numero de libras para pasarlo a kilos y gramos: ');

READLN (libras);     

WRITELN ('');      

kilos:= libras * 0.45;     

gramos:= kilos * 1000;      

WRITELN ('Son ',kilos:5:2,' kilos y ',gramos:5:2,' gramos.');

END.