Составить Код по блок-Схеме

[Настя Мороз]

Ребята, помогите будущему экономисту с дипломом!
Нужно написать код к блок-схеме. Я очень сильно ничего не понимаю) вероятнее всего даже не правильно составила блок схему( очень нужно написать код к блок-схемеБезымянный.png
Суть такая: три эксперта оцениваю риск по двум позициям
1 - вероятность наступления, 2 - тяжесть последствий.
нужно найти среднюю оценку по каждой позиции (abc/3 и def/3)
Полученные значения перемножить
Далее посмотреть, больше это значение 9 или меньше, отсюда и решение о том, как реагировать на риск.
Помогите пожалуйста(

[newerow1989]

var a,b,c,d,e,f:integer;
    x,y,R:real;
begin
   Write('a = ');Readln(a);
   Write('b = ');Readln(b);
   Write('c = ');Readln(c);
   Write('d = ');Readln(d);
   Write('e = ');Readln(e);
   Write('f = ');Readln(f);
   x:=a*b*c/3;
   y:=d*e*f/3;
   R:=x*y;
   If R>9 then
      Writeln('Prinyat mery po regulirovanijy riskov') else
      Writeln('Risk neznachitelen');
   Readln;
end.