No5 (0,6), (2,8), (3,11), (6,13), (10,14), (14,17), (16,16), (20,16), (22,17), (24,15), (24,11), (21,9), (20,11), (20,7), (19,6), (16,6), (16,7), (18,7), (19,8), (17,10), (16,10), (15,11), (14,9), (11,11), (10,14). (18,6), (18,4), (16,0), (14,2), (15,4), (15,5), (14,5), (14,0), (11,0), (11,6), (6,6), (7,2), (6,2), (6,1), (3,1), (4,5), (3,8), (0,6). Рисунок по кординатам

Я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2

a) a*2+b*2;

b) a*b+b*c;
c) a+b -245*(a+b)*2*c;

4. Program Avgarif;

     Uses crt;

      var a,b,c,d,res:real;

      begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

             write('Введите 3 число: ');

            readln(c);

            write('Введите 4 число: ');

            readln(d);

          res:=(a+b+c+d)/4;

          writeln('Среднее арифметическое:',res);

          readkey;

      end.   

5. Program Kvadrat;

     Uses crt;

     var a,p: real;

     begin

           clrscr; 

           write('Введите сторону квадрата а: ');

            readln(a);  

           p:=4*a;

            writeln('Периметр квадрата: ',p);       

            readkey;

    end.   

6.Program Prjamoug; 

     Uses crt;

     var a,b,p,s: real;

     begin

          clrscr;

           write('Введите 1 сторону прямоуголника: ');

            readln(a);

            write('Введите 2  сторону прямоуголника : ');

            readln(b);

           s:=a*b;

           p:=2*a+2*b;

          writeln('Периметр прямоугольника: ',p); 

          writeln('Площадь  прямоугольника : ',s);         

       readkey;

    end.   

 7. Program Arifm;

       Uses crt;

       var a,b,r,s,p,d: real;  

begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

           p:=a*b;

           s:=a+b;

           d:=a/b;

           r:=a-b;

          writeln('Произведение a и b: ',p); 

          writeln('Сумма  a и b  : ',s);

         writeln('Частное a и b: ',d); 

          writeln('Разность  a и b  : ',r);     

    readkey;

   end.   

Uses
  Crt;
Var
  i, N, kol: byte;
  sum_rost, sr_rost: real;
  team: array[1..100] of real;
Begin
  sum_rost := 0.0;
  sr_rost := 0.0;
  kol := 0;
  write('Введите количество членов команды');
  read(N);
  writeln('Введите рост каждого члена команды');
  for i := 1 to N do
    begin
      readln(team[i]);
      sum_rost := sum_rost + team[i];
    end;
  sr_rost := sum_rost / N;
  for i := 1 to N do
    if (team[i] > sr_rost) then
      kol := kol + 1;
  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
  write(' равно ', kol);
End.

Я надеюсь надо было на паскале написать?)