Дано целое четырехзначное число. Вывести столбец целых чисел полученных делением на 2, начиная с заданного числа до 0

* 60 / 16 =

25 декабря 1951 году был создан первый отечественный комп

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

мне кажется в цифровом виде