Peso em gramas

program peso_gramas;
uses crt;
var pk,pg:real;

begin
    clrscr;
    writeln ('digite o peso da pessoa em kilos');
    readln (pk);
    pg:=(pk*1000);
    writeln ('O peso da pessoa em gramas e: ',pg);
    readkey;
end.