What are the names of the instances in the following code? Please put one instance per blank space and enter them in the order that the computer would read them. import turtle
wn = turtle.Screen()
jazz = turtle.Turtle()
jazz.forward(50)
jazz.right(90)
pop = turtle.Turtle()
pop.left(180)
pop.forward(76)​

{1 шаг - создать типизированный файл! } program ex; uses  crt; const name='baze';             type                     stfio = string[30];                     adress=string[50];                     recbook = record                                               fio : stfio; {ф.и.о}                                               adress: adress; {адрес}                                               num_tel: string[20]{телефон};                                           end;                     mas= array[1..30] of recbook;               var                     bookfile : file of recbook;                             work : recbook;                               vid : char;                     end_menu : boolean;                             a: mas; procedure sort_buble(var a: mas; count: integer); var c: mas;       last,current: integer; begin         for last : = count downto 2 do             for current : = 1 to last-1 do             begin                 if a[current].fio > a[current+1].fio then         begin             c[1]: =a[current];             a[current]: =a[current+1];             a[current+1]: =c[1];         end;             end; end; procedure outputrec_z; begin   with work do     begin         gotoxy(2,2);   write(' фио ');         gotoxy(19,2);   write(' tel  ');         gotoxy(35,2);   write(' адрес ');         gotoxy(2,4);     write(fio);         gotoxy(19,4);   write(num_tel);         gotoxy(35,4);   writeln(adress);     end;     readkey;     clrscr; end; procedure find; var     findst: string;     end_menu2: boolean; begin     write(' введите строку поиска(fio) ');     readln(findst);     textcolor(15);     clrscr;     assign(bookfile,name);     {$i-}     reset(bookfile);     {$i+}     if ioresult = 0 then                   begin                             seek(bookfile, 0);                             while (not eof(bookfile)) do begin         clrscr;         read(bookfile,work);         if pos(findst,work.fio)< > 0 then             outputrec_z; end;   writeln('больше записей удовлетворяющих критерию поиска не обнаружено');           readkey;                   end end; var f: text; procedure find_b; var     i,j: integer; begin     textcolor(15);     clrscr;     assign(bookfile,name);     {$i-}    reset(bookfile);     {$i+}     if ioresult = 0 then                   begin                 i: =0; {кол-во записей тел которых начинается с 41}                             seek(bookfile, 0);                             while (not eof(bookfile)) do                             begin                                       read(bookfile,work);                         if (pos('41',work.num_tel)=1) then         begin             i: =i+1;             a[i]: =work;         end;         end;         sort_buble(a, i);         assign(f,'res.txt');         rewrite(f);         for j: =1 to i do         writeln(f,a[j].fio,' ', a[i].num_tel: 7);         close(f);   end; end; {****************************************************************************}               procedure addrec;                                   begin                                             clrscr;                                             write(' номер добавляемой записи ');                                             textcolor(15);                                             write(filepos(bookfile)+1);                                             with work do                                                       begin                                                       writeln;                                                                 write(' фио ');                                                                 readln(fio);                                                                 write(' телефон ');                                                                 readln(num_tel);                                                                 write(' адрес ');                                                                 readln(adress);                                                                 write(bookfile,work);                                                       end;                                   end; {****************************************************************************}               procedure create_book_phone;                                   var                                         ind, count : integer;                                   begin                                             clrscr;                                             textcolor(15);                                             assign(bookfile,name);                                             rewrite(bookfile);                                             write(' новый файл ');                                             writeln(name);                                             write(' введите количество записей в файле ');                                             readln(count);                                             for ind : = 1 to count do addrec;                                             writeln;                                             writeln(' создание завершено');                                             writeln;                                             writeln(' количество записей в файле ');                                             writeln(filesize(bookfile));                                             close(bookfile);                                   end; {****************************************************************************}               procedure outputrec;                                   begin                                             clrscr;                                             read(bookfile,work);                                             with work do                                                       begin                                                                 gotoxy(10,2);   write('фио ');                                                                 gotoxy(34,2);   write('телефон  ');                                                                 gotoxy(50,2);   write('адрес ');                                                                                                                                 gotoxy(2,4);     write(fio);                                                                 gotoxy(35,4);   write(num_tel);                                                                 gotoxy(50,4);   writeln(adress);                                                                 readkey;                                                                 clrscr;                                                         end;                                   end; {****************************************************************************}               procedure outputallrec;                                   begin                                             clrscr;                                             assign(bookfile,name);                                             {$i-} reset(bookfile); {$i+}                                             if ioresult = 0 then                                                   begin                                                             seek(bookfile, 0);                                                             while (not eof(bookfile)) do                                                               outputrec;                                                   end                                             end; {****************************************************************************} begin         clrscr;         textbackground(0);         vid : = ' ';         end_menu : = false;         repeat           textcolor(15);           write(' текущий файл: ',chr(13),name);                     writeln;                     writeln;                     writeln('*********************************************************************');                     writeln;                     writeln('меню: ');                     writeln('  2  cоздать новый файл');                     writeln('  3  просмотреть все ');                     writeln('  4  найти номер телефона сотрудника по его фамилии');                     writeln('  5  переписать в алф. порядке в текстовый файл информацию о сотрудниках первые цифры телефона 41');                     writeln('  8  bыход');                     readln(vid);                     case vid of                             '2' : create_book_phone;                             '3' : outputallrec;                             '4' : find;                             '5' : find_b;                             '8' : end_menu : = true;                     end;                     clrscr;         until end_menu; end.