Блок схема 1,1

Помагите пожалуйста нарисовать блок схему этого задача

uses crt;
var ex,ey,kx,ky,gx,gy,rx,ry,i,a,b: integer;

begin


ex:=10;
ey:=2;
a:=0;


kx:=9;
ky:=9;


gx:=10;
gy:=3;


rx:=9;
ry:=4;
b:=2;


ClrScr;
Window(5,5,80,55);
textbackground(white);
ClrScr;


textbackground(green);
textcolor(black);
GoToXY(ex,ey);
write('^');

for i:= 2 to 6 do
begin
ex:= ex - 1;
ey:= ey + 1;
a:=a+2;
Delay(150);
GoToXY(ex,ey);
write('^','^':a);
end;

GoToXY(ex-1,ey+1);
write('^^^^^^^^^^^^^');


textbackground(black);
textcolor(white);
gotoxy(kx,ky);
write('[ ]');

for i:= 4 to 8 do
begin
ky:=ky+1;
Delay(300);
gotoxy(kx,ky);
write('[ ]');
end;


textbackground(green);
textcolor(red);
GoToXY(rx,ry);
write('$','$':b);

for i:= 4 to 8 do
begin
rx:= rx - 1;
ry:= ry + 1;
b:=b+2;
Delay(150);
GoToXY(rx,ry);
write('$','$':b);
end;


textbackground(green);
textcolor(yellow);
GoToXY(gx,gy);
write('$');

for i:= 4 to 7 do
begin
gy:=gy+1;
Delay(150);
gotoxy(gx,gy);
write('$');
end;
readln;
end.

0

а текст самой задачи? тут раздел с ++

0

не понял

0

условие задачи

0

у меня курсовой на теме графическии режим по этому ия выбрал готовую решенную задачу

Добавлено через 1 минуту
условия нету ия выбрал готовую задачу

0