ПОГМОГИТЕ ПЛЗ!!!!
1. Напишите алгоритм с аргументами для рисования фигуры, изображенной на рисунке. В качестве аргументов выступают размеры фигуры, указанные на рисунке.
http://www.licey.net/kumir/img/drawman/taskArg4_1.png

Program a_1; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       sum: =sum+i;   until i=n;   writeln('сумма чисел от 1 до ',n,' равна ',sum); end. program b_2; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       sum: =sum+i*i;   until i=n;   writeln('сумма квадратов чисел от 1 до ',n,' равна ',sum); end. program v_3; uses crt; var   i,n,sum: integer; begin   write('введите n ');   readln(n);   i: =0;   sum: =0;   repeat       i: =i+1;       if (i mod 2 = 0) then sum: =sum+i;   until i=n;   writeln('сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum); end. program g_4; uses crt; var   i,n,sum: integer; begin   i: =9;   sum: =0;   repeat       i: =i+1;       sum: =sum+i;   until i=99;   writeln('сумма всех двузначных чисел равна ',sum); end.