Решите , информатика 8 класс) ! 2000(10)-х16 +проверка 111100(2)+1010(2)=х21011(2)*1100(2)=х2

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var xa,ya,xb,yb,xc,yc:real;
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  var xd:=(xb+xc)/2;
  var yd:=(yb+yc)/2;
  var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
  Writeln('ma=',ma:0:5);
  var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
  var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
  var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
  var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
  Writeln('Wb=',Wb:0:5)
end.

Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667

1.A[N]
 i = 0; sum = 0;

 Пока i < N;
sum = sum + A[i]
 увеличить i на 1.

2.A[N]
 i = 0; sum = 0;

Пока i < N;
Если A[i] делиться на 3 без остатка, то : (sum = sum + A[i]) 
 увеличить i на 1.

3.A[N]
 i = 1; sum = 0;

 Пока i < N;
sum = sum + A[i]
 увеличить i на 2.

Сред. знач. = sum/i

4. A[N]
 i = 0; sum = 0; chet =0; nechet = 0; otr =0;

 Пока i < N;
Если A[i] <0, то : (otr = otr * A[i]) 
Если i делиться на 2, то (chet = chet + A[i]) в ином случае nechet = nechet +1 
 увеличить i на 1.

Сума четных - chet
Произведение отрицательных - otr
Количество нечетніх - nechet