//fpc 3.0.0

program first;
var
Q: real;
P: integer;

begin
    Q := 0.031849;
    P := 502;


    writeln('Константы: P=',P,'  Q=',Q:0:5);
    writeln(' Константы: P=  ',P);
    writeln('        Q=  ',Q)
end.