Website and domain for sale: mail@discussmain.com

Count the people who understands Pascal ABS Please from an etimizadaniyema: 1. Napissat the program, the considering arithmetic average of figures of number.2. Napissat the program, considering the sum of figures multiple "3 " number.2a. Napissat the program finding the minimum figure in number. Thank you in advance!

86
Var A, S, n: integer; Begin WriteLn (Enter an integer); ReadLn(A); S: = 0; n: = 0; While A< & gt; 0 do Begin S: = S+A mod 10; n: = n+1; A: = A div 10 End; WriteLn (Sr =, S/n); End. Var A, S: integer; Begin WriteLn (Enter an integer); ReadLn(A); S: = 0; While A< & gt; 0 do Begin if (A mod 10) mod 3 = 0 then S: = S+A mod 10; A: = A div 10 End; WriteLn (S =, S); End. Var A, m: integer; Begin WriteLn (Enter an integer); ReadLn(A); m: = 9; While A< & gt; 0 do Begin if A mod 10 & lt; m then m: = A mod 10; A: = A div 10 End; WriteLn (Min =, m); End.
82
Answer add