ПОМОГИТЕ СРОЧНО, ПОЖАЛУЙСТАПомогите , пожалуйста, необходимо составить трасеровочную таблицу ,

Вот вариант программы с трассировкой

program test;

var
  n,k,m:integer;

begin
  repeat
    Writeln('*** очередной проход по циклу REPEAT');
    Write('Введите естественное число n: ');
    Readln(n);
    Writeln('*** введено ',n)
  until ngt;0;
  Writeln('*** вышли из REPEAT по условию ',n,' gt; 0 = ',ngt;0);
  m:=n;
  k:=10;
  Writeln('*** m=',m,', k=',k);
  Writeln ('*** проверка входа в цикл WHILE с условием ',m,' div 10lt;gt;0 = ',
      m div 10lt;gt;0);
  while m div 10lt;gt;0 do begin
    Writeln ('*** проход по циклу WHILE с условием ',m,' div 10lt;gt;0 = ',
        m div 10lt;gt;0);
    k:=k*10;
    m:=m div 10;
    Writeln('*** m=',m,', k=',k);
    end;
  Writeln('*** Цикл WHILE завершен');
  m:=(2*k+n)*10+2;
  Writeln('Число с двойками = ',m);
end.