Мне нужно составить алгоритм своего имени по информатике алгоритм выглядит примерно так- сместиться в точку опустить перо сместиться на вектор моё имя-нурлан кто сможет напишите ) заранее большое вам

Program nurlan, war m,sh,s: integer, begin nead(m,sh), s: z m+3+sh*3; wrl+er(s=s); end

Uses graphabc; procedure p1(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure p2(x,y: integer); begincircle(x,y,10); floodfill(x,y,clyellow); ellipse(x-15,y+10,x+15,y+70); floodfill(x,y+20,clyellow); line(x,y+70,x,y+100); end; var x,y,i: integer; beginx: =40; y: =100; i: =1; repeat  lockdrawing;   clearwindow(clgreen);   setpenwidth(3);   if odd(i) then p1(x,y)   else p2(x,y);   setpenwidth(10);   line(0,y+100,windowwidth,y+100);   redraw;   sleep(500);   x: =x+5;   i: =i+1; until x> =windowwidth-20; end.

Uses crt; var a: array[1..5,1..5] of integer;     i,j,n,k: integer; begin randomize; for i: =1 to 5 do begin    for j: =1 to 5 do begin        a[i,j]: =random(101)-50;         write(a[i,j]: 4);     end;     writeln; end; n: =50; for i: =1 to 5 do    for j: =1 to 5 do begin        if a[i,j] mod 5=0 then k: =a[i,j];         if k< n then n: =k;     end; writeln(минимальный элемент кратный 5=',n); end.