Написать в виде блок схемы площадь треугольника

Решил сделать так. Можно написать через For

var

a,b,c:integer;

begin

 repeat

   readln(a,b);

 until (a<100) and (b<100);

 if a>b then

   begin

     c:=a;

     a:=b;

     b:=c;

   end;

 if a mod 9 <> 0 then

   begin

     inc(a);

     while (a mod 9 <> 0) do

        inc(a);

     while a<=b do

       begin

         writeln(a,'^3 = ',a*a*a);

         a:=a+9;

       end;

   end

     else

       while a<=b do

         begin

           writeln(a,'^3 = ',a*a*a);

           a:=a+9;

         end;        

end.

ответ:var err, right, answer : integer;

BEGIN

err := 0; right := 0;

writeLn('Сейчас Вам будет предложен тест по архитектуре. ');

writeLn('К каждому вопросу три варианта ответа. ');

writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');

writeLn;

writeLn('Архитектор Исаакиевского собора: ');

writeLn('1. Доменико Трезини');

writeLn('2. Огюст Монферран');

writeLn('3. Карл Росси');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Архитектор Зимнего дворца: ');

writeLn('1. Франческо Бартоломео');

writeLn('2. Карл Росси');

writeLn('3. Огюст Монферран');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

writeLn;

writeLn('Невский проспект получил свое название: ');

writeLn('1. По имени реки, на которой стоит Санк-Петербург');

writeLn('2. По имени близко расположенной Александро-Невской лавры');

writeLn('3. В память о знаменитом полководце - Александре Невском');

Write('Ваш ответ: ');ReadLn(answer);

if answer = 2 then begin

WriteLn('Правильно');

right := right +1;

end

else begin

WriteLn('Неправильно');

err := err + 1;

end;

WriteLn('Правильных ответов: ', right);

WriteLn('Неправильных ответов: ', err);

END.

Объяснение:

P.S. Это конечно не то,но думаю по аналогию сможешь составить