Pascal ABC(нарисуйте пожалуйста блок-схему)

[sfuwf]

program lab3_2;
uses crt;
var b,i,n,min,max:integer;
a:array[1..3] of integer;
begin
readln(n);
a[3]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
a[1]:=n div 10;
min:=1;
max:=1;
for i:=1 to 3 do if a[i]>a[max] then max:=i;
for i:=1 to 3 do if a[i]<a[min] then min:=i;
b:=a[max];
a[max]:=a[min];
a[min]:=b;
for i:=1 to 3 do write(a[i]);
end.

[Mad_Cat]

[sfuwf]

огромное Спасибо