Вопрос по информатике:

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

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.