Нужен курсач на тему спеціалізований арифметично-логічний пристрій для виконання додавання , будьте добры,

Var     d: integer;     repeat       readln(d);       case d of       1: writeln('понедельник');       2: writeln('вторник');       3: writeln('среда');       4: writeln('четверг');       5: writeln('пятница');       6: writeln('суббота');       7: writeln('воскресенье');       else writeln('конец работы! ')       end;   until (d< 1 or d> 7) end.

Type mas=array[,]of integer; var     i,n: integer;     a: mas;     b: array[1..4]of integer; begin write('сколько точек: '); readln(n); setlength(a,3,n+1); for i: =1 to n do   begin   write('введите координаты точки: ');   readln(a[1,i],a[2,i]);   end; for i: =1 to n do   begin   if a[2,i]=0 then     begin     if b[1]=0 then b[1]: =i else if a[1,i]< a[1,b[1]] then b[1]: =i;     if b[2]=0 then b[2]: =i else if a[1,i]> a[1,b[2]] then b[2]: =i;     end;   if a[2,i]> 0 then     if b[3]=0 then b[3]: =i else if a[2,i]> a[2,b[3]] then b[3]: =i;   if a[2,i]< 0 then     if b[4]=0 then b[4]: =i else if a[2,i]< a[2,b[4]] then b[4]: =i;   end; writeln('координаты вершин четырехугольника с наибольшей площадью: '); for i: =1 to 4 do write('(',a[1,b[i]],'; ',a[2,b[i]],') ') end.