Используя масштаб 1:10 (1 клетка = 10 Ч.шагов), нарисовать в тетради следующую фигуру

PU SETPOS[30 30] PD SETY -40 SETPOS[20 -50] SETX -20 SETPOS[-30 -40]
SETY 30 SETPOS[-10 20] SETX 10 SETPOS[30 30]
PU SETPOS[-20 -10] PD SETX -10 SETY -20 SETX -20 SETY -10
PU SETPOS[10 -10] PD SETX 20 SETY -20 SETX 10 SETY -10
PU SETPOS[-10 -30] PD SETPOS[0 -40] SETPOS[10 -30] SETX -10

Program asd;
Var B,C,D:array[1..2500] of integer;
i,max,min,n:integer;
BEGIN
Writeln('Введите размерность одномерного массив D: ');
Readln(n);
max:=D[1];
for i:=1 to n do
begin
Write('Введите D[',i,']: '); Readln(D[i]);
If max<D[i] then max:=D[i];
end;
 Writeln('Максимальный элемент в массиве: ',max);
 Writeln('Положительный массив B из D: ');
 min:=D[1];
 For i:=1 to n do
  begin
  If D[i]>0 then
      B[i]:=D[i];
   If D[i]<0 then
     C[i]:=D[i];
   If min>C[i] then
   min:=C[i];
     Write(B[i]:4);
      end;
 writeln;
  Writeln('Отрицательный массив C из D: ');
 For i:=1 to n do
  begin
 Write(C[i]:4);
 end;
 Writeln();
  Writeln('Минимальный элемент в массиве С: ',min);
END.

Const N = 12;
const k = 0;
var temp : array [1..N] of integer;
    i, min, max, count : integer;
begin
    min := 1000; max := -1000;
    count := 0;
    {Заполнение массива данными}
    for i := 1 to N do
    begin
        write(i,'-й месяц: ');
        readln(temp[i]);
        if (temp[i] > max) then
            max := temp[i];
        if (temp[i] < min) then
            min := temp[i];
        {Если температура выше k - месяц считается теплым}
        if (temp[i] > k) then
            count := count + 1;
    end;
    writeln('Минимальная температура: ',min);
    writeln('Максимальная температура: ',max);
    writeln('Количество теплых месяцев: ',count);
    readln;
end.