напишите программу на Паскале, которая переводит число из десятичной системы счисления в двоичную

var N : Word; S : String;
begin
Write('N = '); ReadLn(N);
S := ''; while N > 0 do begin S := Chr(N mod 2 + 48) + S; N := N shr 1; end;
WriteLn(S);
end.