помогите составит блок схему к программе паскаль пожалуйста

Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>b)and(b>c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.