Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого неотрицательного числа N в двоичной системе счисления. Результирующая строка состоит из символов «0»–«1»и не содержит ведущих нулей (за исключением представления числа 0).Используя эту функцию, получить двоичные представления пяти данных чисел — Pascal(Паскаль)

uses crt;

function DecToBin(n: longint): string;
const
  c: array [0 .. 1] of char = ('0', '1');
var
  res: string;
begin
  res := '';
  while (n <> 0) do
  begin
    res := c[n mod 2] + res;
    n := n div 2;
  end;
  DecToBin := res;
end;

var
  a: longint;
  i: byte;

begin { основная программа }
  clrscr;
  for i := 1 to 5 do
  begin
    write('Введите десятичное число а= ');
    readln(a);
    writeln(DecToBin(a));
  end;
  readln

end.