Нужно найти сумму цифр трехзначного числа и записать в паскале

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

первое.

var a: array[0..9] of integer; i,y,min: integer; beginrandomize(); for i: =0 to 9 do begin y: = random(10); a[i]: = y; end; for i: =0 to 9 do write(a[i],' '); writeln(' - десять випадкових чисел'); min: =a[0]; for i: =1 to 9 do if a[i]< min then min: =a[i]; writeln(min, ' - мiнiмальне число.');

end. второе

var a: array[0..9] of integer; i,y,s,max: integer; beginrandomize(); for i: =0 to 9 do begin y: = random(10); a[i]: = y; end; for i: =0 to 9 do write(a[i],' '); writeln(' - десять випадкових чисел'); max: =a[0]; for i: =1 to 9 do if a[i]< max then max: =a[i]; writeln(max, ' - максимальне число.'); s: =0; // сума чисел, що приймають таке значення for i: =0 to 9 do if a[i]=max then s: =s+1; writeln('зустричается ',s,' раз.');

end.