Написать программу на паскале , вычесление суммы цыфр натурального числа 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.

Var a,b: integer; c,h: char; begin for b: = 1 to 15 do   begin   for a: = 1 to 15 do   begin     case (a*b) mod 16 of     0: h: ='0';     1..9: h: =*b)mod 16)+48);     10: h: ='a';     11: h: ='b';     12: h: ='c';     13: h: ='d';     14: h: ='e';     15: h: ='f';     end;     case (a*b)div 16 of     0: c: ='0';     1..9: c: =*b)div 16)+48);     10: c: ='a';     11: c: ='b';     12: c: ='c';     13: c: ='d';     14: c: ='e';     15: c: ='f';     end;     write(c+h,' ')   end;   writeln   end end.

интервал -15,15

c[i,j]: =-15+random(30);

 

{сумма положительных чисел в каждой строке}

for i: =1 to n1 do begin

s: =0;

for j: =1 to n2 do

if c[i,j]> 0 then s: =s+c[i,j];

writeln('суммаэлем-в',i,'–й строки=',s,' ');

end;

 

{поиск минимума}

min: =c[1,1]; {объявить переменную}

i_min: =1; {объявить переменную}

j_min: =1; {объявить переменную}

for i: =1 to n1 do begin

 

for j: =1 to n2 do

if c[i,j]< min then

min: =c[i,j];

i_min: =i;

j_min: =j;

end;

writeln('минимальный элемент с[',i,',',j,']=',min);

 

 

{замена положительных элементов на 0}

for j: =1 to n2 do begin

s: =0;

for i: =1 to n1 do

if c[i,j]> 0 then c[i,j]: =0;

end;