Паскаль! дано n чисел. найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. повторить системы счисления

Var n,a,i,s,k:integer;
 begin
write('n='); readln(n);
k:=0;
for i:=1 to n do
 begin
 write('a='); readln(a);
 s:=0;
 while a<>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
  end;
  writeln('  sum=',s);
  if s mod 3 =0 then k:=k+1;
  end;
 writeln('k=',k);
end.

Program pr;
uses crt;

Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;

Begin

N:=5;
   Writeln('Введите элементы матрицы'); 
      for i:=1 to N do     
        for j:=1 to N do     
            readln(mas[i,j]);              

Writeln();   
Writeln('Исходная матрица');   
  for i:=1 to N do   
     Begin   
        for j:=1 to N do     
                 Write(mas[i,j], ' ');           
       Writeln();   
     end;      

{Объмен}   
 
  for j:=1 to N do     
      Begin       
        buf:=mas[N,j];       
        mas[N,j]:=mas[1,j];       
        mas[1,j]:=buf     
      end;               

Writeln();   
Writeln('Результирующая матрица');   

for i:=1 to N do   
   Begin     
       for j:=1 to N do     
           Write(mas[i,j], ' ');          
       Writeln();   
    end;    
 
readln;
end.

Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите через "Enter" 4 числа  ');read(a,b,c,d);r:=(a+b+c+d)/4;writeln('ответ ',r);end.
2 задача Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите ваш рост');read(a);writeln('Введите ваш вес ');readln(R);writeln('Ваш вес = ',r,' ваш ростс = ',a);end;
var a,b,c,d:integer; x:real; begin   write('Введите a,b,c: ');   readln(a,b,c);     //Дискриминант   d:=sqr(b)-4*a*c;   if d<0 Then writeln('Не имеет смысла')   else   if d=0 Then   begin        x:=-b/(2*a);        writeln(x);       end   else   begin         x:= (-b + sqrt(D))/(2*a);         writeln(x);         x:= (-b - sqrt(D))/(2*a);         writeln(x);       end; end.