Дано натуральное число n. вычислить сумму цифр этого числа.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

Возможно я не понял условие. посмотри такое: //pascal var a, b, h, f, xi, yi: real; n, i: integer; begin   write('a = '); readln(a);   write('b = '); readln(b);   write('n = '); readln(n);   writeln;   writeln('  xi                  yi');   f : = (a * 2 + 1 * cos(a));   h : = (b - a) / n;   for i : = 0 to n do   begin       xi : = a + i * h;       yi : = xi * 2 + 1 * cos(xi);       f : = f + +h) * 2 + 1 * cos(a+;       writeln(xi: 4, '      ', yi: 4);   end;   writeln;   writeln('f = ', f); end.

Если опечатка. если нет, то убери комментарий. pascal // var   a: array [1..4, 1..4] of byte;   i, j: byte; begin for i : = 1 to 4 do   for j : = 1 to 4 do   begin   if (i mod 2 = 1) then       a[j, i] : = (i - 1) * 4 + j   else       a[j, i] : = i * 4 - j + 1;   end;   //a[2,4] : = 16; for i : = 1 to 4 do begin   for j : = 1 to 4 do       write(a[i, j]: 4);   writeln; end; end.  // пример:     1    8    9  16     2    7  10  15     3    6  11  14     4    5  12  13