По информ! кажется легко но больше 2- х вариантов придумать не могу!

Var   x,n: integer; begin   write('n='); read(n);   for x: =1 to n do       writeln(x: 5,4-x: 10) end.   пример n=10       1                3       2                2       3                1       4                0       5              -1       6              -2       7              -3       8              -4       9              -5     10              -6

Вычислим остатки от деления обоих чисел на 9, для этого заметив, что у числа 10a + c такой же остаток, что и у a + c. тогда можно, считывая цифру за цифрой, получить остаток для всего числа. дальше проверяем, чем равно произведение остатков: если делится на 9, то произведение делится на 9, иначе не делится. function mod9(f: text): integer; var   c: char;   rem: integer; begin   rem : = 0;   while not eoln(f) do   begin     read(f, c);     rem : = (rem + ord(c) - ord('0')) mod 9;   end;   readln(f);   mod9 : = rem; end;   var   f: text;   a: integer;   begin   assign(f, 'input.txt');   reset(f);   a : = mod9(f) * mod9(f);   close(f);   assign(f, 'output.txt');   rewrite(f);   writeln(f, a);   if a mod 9 = 0 then     write(f, 'yes')   else     write(f, 'no');   close(f); end.