Написать программу построения указанной цветной фигуры(паскаль) ! завтра экзамен

Program vuxesleneq; var i,o,p: integer; t,y,u,j,c: ireal; begin writeln('ввеите число для вычислени'); readln(t); writeln(''ввеите число для вычислени''); readln(y); writeln('введите знак'); redln(i); if i="+" then c: =a+b; writeln (c); if i="-" then c: =a-b; writeln (c); if i="*" then c: =a*b; writeln (c); if i="/" then c: =a/b; writeln (c); end.

Var a: array[1..10] of real; i,na: integer; max: real; begin repeat           writeln('введите количество элементов массива меньше 11');           readln(na); until (na> 0) and(na< =10); writeln('введите элементы массива,',na,' штук'); for i: =1 to na do       begin       readln(a[i]);       if i=1 then max: =a[i]       else       if (a[i]> max) then max: =a[i];       end; writeln('наибольший элемент массива = ',max); end.

Первая. program one;   var i: byte; a: integer;     begin    a: =1;       for i: =1 to 15 do begin        a: =a+a;       end;       write(a);       end. третья. program three;   var p: real; i: real; a: real;   begin  p: =1;   i: =1/5;     while i< =2+4/5 do begin    p: =p*i;     i: =i+1/5;     write(p, ' ');     end;     write(p);     end. во второй промежуточное не понял, напишите без многоточия.