Написать код к блок-схеме - Pascal

Формулировка задачи:

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

Решение задачи: «Написать код к блок-схеме»

Листинг программы

var a,b,c,d,e,f,x,y,r:real;
begin
writeln('Первый эксперт');
repeat
write('Оценка вероятности от 0 до 1 a=');
readln(a);
until (a>=0)and(a<=1);
repeat
write('Тяжесть последствий e>0 e=');
readln(e);
until e>0 ;
writeln('Второй эксперт');
repeat
write('Оценка вероятности от 0 до 1 b=');
readln(b);
until (b>=0)and(b<=1);
repeat
write('Тяжесть последствий d>0 d=');
readln(d);
until d>0 ;
writeln('Третий эксперт');
repeat
write('Оценка вероятности от 0 до 1 c=');
readln(c);
until (c>=0)and(c<=1);
repeat
write('Тяжесть последствий f>0 b=');
readln(f);
until f>0 ;
x:=(a+b+c)/3; //среднее считают так
y:=(d+e+f)/3;
r:=x*y;
if r>9 then write('Принять меры по регулироанию рисков')
else write('Риск незначителен');
end.

Объяснение кода листинга программы

Объявление переменных:
- a, b, c, d, e, f, x, y, r типа real (вещественное число).
Ввод данных:
- Запрашивается и считывается с клавиатуры значение вероятности a от 0 до 1.
- Повторять этот процесс, пока значение переменной a не попадет в диапазон от 0 до 1.
- Затем аналогично запрашивается тяжесть последствий e (должно быть больше 0).
- Затем поочередно вводятся и проверяются значения для b, d, c, f (вероятности и тяжесть последствий).
Вычисление:
- Вычисляется среднее значение вероятности x как среднее арифметическое a, b и c.
- Вычисляется среднее значение тяжести последствий y аналогично.
- Рассчитывается произведение r средних значений вероятности и тяжести последствий.
Вывод результата:
- Если значение r больше 9, выводится сообщение Принять меры по регулированию рисков.
- В противном случае выводится сообщение Риск незначителен.