program DecimalToBinary;

var
decimalNumber, quotient, remainder, i: integer;
binaryNumber: string;

begin
writeln('Enter a decimal number (up to 1000): ');
readln(decimalNumber);

if (decimalNumber < 0) or (decimalNumber > 1000) then
begin
writeln('Invalid input. Please enter a number between 0 and 1000.');
end
else
begin
binaryNumber := '';
quotient := decimalNumber;

repeat
remainder := quotient mod 2;
quotient := quotient div 2;
binaryNumber := char(remainder + 48) + binaryNumber;
until quotient = 0;
writeln('Binary representation of ', decimalNumber, ' is: ', binaryNumber);

end;
end.