прикладная математика

var
a,summa,a1,a2,a3,a4:integer;
begin
write('Vvedite4xznachnoe chislo:');
readln(a);
a1:=a mod 10;
a2:=(a div 10) mod 10;
a3:=(a div 100) mod 10;
a4:=a div 1000;
summa:=a1+a2+a3+a4;
write(' summa cifr=' ,summa);
end.

Vvedite4xznachnoe chislo: 4974
summa cifr=24

program Iren456
{***********************************}
{* laba#4 file iren456.pas==ver1.0            *}
{* Zaznoba Irina I-14-1 06.10.14               *}
{***********************************};
var C,S,Pi: real;
begin
Pi:=3.14;
writeln('enter S');
readln (S);
C:=sqrt(4*Pi*S);
writeln('C=',C);
end.

var x1,x2,x3,y1,y2,y3,v1,v2,v3,cosA,cosB,cosC:real;
begin
write('Введите координаты вершин по часовой стрелке в виде x1 y2 x2 y2 x3 y3: ');
read(x1,y1,x2,y2,x3,y3);
v1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
v2:=sqrt(sqr(x1-x3)+sqr(y1-y3));
v3:=sqrt(sqr(x2-x3)+sqr(y2-y3));

cosA:= arccos(((x1-x2)*(x1-x3)+(y1-y2)*(y1-y3))/(v1*v2));
cosB:= arccos(((x1-x3)*(x2-x3)+(y1-y3)*(y2-y3))/(v2*v3));
cosC:= arccos(((x2-x3)*(x1-x2)+(y2-y3)*(y1-y2))/(v1*v3));
writeln('cosA = ', cosA:3:5, ' cosB = ', cosB:3:5 ,' cosC = ', cosC:3:5)

End.

Точки: (0;0)  (4;6)  (4;0)
Ответ в радианах
A = 0.98279  B = 1.57079  C = 2.55359

program Dimehion;
uses crt;
    var  i,t,n,a,b,c: integer; S1,S2:real;
  begin
      writeln('Сколько чисел вы хотите ввести? ');
      readln(n);

      b:=0; c:=0;
      writeln('Введите числа:');
      for i:=1 to n do begin
        writeln('Введите ' ,i, ' число: ');
        readln(a);
        b:=b+sqr(a);
        c:=c+abs(a);
        end;
      S1:=b/n;
      S2:=c/n;
      writeln('Среднее арифметическое квадратов чисел: ',S1);
      writeln('Среднее арифметическое модулей чисел: ',S2);
  end.