Начертить две звезды в чертежнике в программе , , кумир, , напишите координаты

Использовать чертежник алг звезды нач нц 2 раз  поднять перо  сместиться на вектор (8,0)  опустить перо  сместиться на вектор (3,6)  сместиться на вектор (3,-6)  сместиться на вектор (-6,4)  сместиться на вектор (6,0)  сместиться на вектор (-6,-4)  поднять перо  кц

Uses crt; const a=0;           b=10;           n=15; var i: longint;       rez: longint; begin clrscr; writeln ('task 1: '); for i: =10 to 35 do       writeln(i: 3);       delay (2000); writeln ('task 2: '); for i: =5 to n do       writeln(i*i: 5);       delay (2000); writeln ('task 3: '); for i: =a to 50 do     begin       rez: =i*i*i;       writeln(rez: 7);   end;       delay(2000);   writeln ('task 4: '); for i: =a to  b do       writeln(i: 3); readln; end.

Sub aaa()       dim i as integer, j as integer, d       redim q(1 to 3, 1 to 2)       for i = 1 to 3               for j = 1 to 2                       q(i, j) = inputbox("введите элемент (" + str(i) + "," + str(j) + ")")               next j       next i       cells(1, 1).value = "исходный массив"       range(cells(2, 1), cells(4, = q       cells(5, 1).value = "результирующий массив"       for i = 1 to 3               if q(i, 1) > q(i, 2) then                       d = q(i, 1): q(i, 1) = q(i, 2): q(i, 2) = d               end if       next i       range(cells(6, 1), cells(8, = q end sub