Question

Написать блок схему данного кода пожалуйста
Var a,b,c,z:real;
Begin
Write(a = );
ReadLn(a);
Write(b = );
ReadLn(b);
Write(c = );
ReadLn(c);
z:=a;
if z lt; b then z:=b;
if z lt; c then z:=c;
WriteLn(z*z);
End.