Начертите фигуру, изображенную на рисунке, используя алгоритм с циклом.

Program p1; const n=10; var a: array [1..n] of real;     i: byte;       max: real;       nmax: byte; begin   //начало цикла ввода  for i: =1 to n do  //ввод       readln(a[i])  //берём за максимальный 1ый элемент   max: =a[1];     //берём количество = 1   nmax: =1;   / /начало цикла проверки  for i: = 2 to n do    if a[i]> max then            begin                max: =a[i];           nmax: =1;           end else                 if a[i]= max then                                  nmax: =nmax+1;   //вывод  writeln('максимальный элемент = ', max,', количество таких элементов = ',nmax);   end.

Program triangle; var ax,bx,cx,ay,by,cy: integer; begin     writeln('введите координату а по х');     readln(ax);     writeln('введите координату b по х');     readln(bx);     writeln('введите координату c по х');     readln(cx);     writeln('введите координату а по y');     readln(ay);     writeln('введите координату b по y');     readln(by);   writeln('введите координату c по y');     readln(cy);     writeln('площадь треугольника равна ', 0.5*((ax-cx)*(by--cx)*(ay-; end.