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

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.