Информатика! Нужна блок-схема!

Program Ciferki;
Var A,B,C,m: real;
begin
writeln ('A,B,C');
readln (A,B,C);
m:=(A+B+C)/3;
if (A>B) and (A>C) then
A:=(A*B*C)*2
else
if (B>C) then
B:=(A*B*C)*2
else
C:=(A*B*C)*2;
if (A

...