Пожалуйста и срочно!!!Составьте блок схему по коду begin for k :=

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

begin
for k := 1 to 100 do
begin
x := random(700);
y := random(700);
r := 10;
circle(x, y, r);
floodfill(x, y, clblue); закрашивает фигуру в рандомный цвет

end;
clearwindow; делает окно порожним
writeln('Привет! Данная программка может расчитать площадь паралелограмма с подмогою двух различных формул. Поначалу избери данные то, что тебе знаменито');
repeat
writeln('1. сторона параллелограмма и вышина, проведенная к ней 2. две стороны и синус угла меж ними');
read(d); присваивает переменной значение, которое ввел пользователь
case d of
1:
begin
perv(u, o, p);
writeln('Брать иную формулу?');
readln(l);
end;
2:
begin
vtor(u, i, p, o);
writeln('Брать иную формулу?');
readln(l);
end;
else begin
writeln('Введи число еще раз');
read(d);
end;
end;
until l = 'нет';
writeln('Возвращайся еще!');
end.