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

uses crt;
const n=3;
var a:array [1..n,1..n] of real;
    b:array [1..n] of real;
    i,j:integer;
    d,d1,d2,d3: real;
    x1,x2,x3:real;
begin
clrscr;
a[1,1]:=7.883; a[1,2]:=-0.8882; a[1,3]:=0.388;  b[1]:=81.5;
a[2,1]:=4.111; a[2,2]:=-5.411; a[2,3]:=2.3333;  b[2]:=2.22;
a[3,1]:=63.7; a[3,2]:=5.1205; a[3,3]:=0.23;  b[3]:=8.54;
writeln('Расширенная матрица коэффициентов:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:4);
  writeln(b[i]:12:4);
 end;
writeln;
d:= a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]
   -a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1]
   +a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1];
d1:=b[1]*a[2,2]*a[3,3]-b[1]*a[2,3]*a[3,2]
   -a[1,2]*b[2]*a[3,3]+a[1,2]*a[2,3]*b[3]
   +a[1,3]*b[2]*a[3,2]-a[1,3]*a[2,2]*b[3];
d2:= a[1,1]*b[2]*a[3,3]-a[1,1]*a[2,3]*b[3]
   -b[1]*a[2,1]*a[3,3]+b[1]*a[2,3]*a[3,1]
   +a[1,3]*a[2,1]*b[3]-a[1,3]*b[2]*a[3,1];
d3:= a[1,1]*a[2,2]*b[3]-a[1,1]*b[2]*a[3,2]
   -a[1,2]*a[2,1]*b[3]+a[1,2]*b[2]*a[3,1]
   +b[1]*a[2,1]*a[3,2]-b[1]*a[2,2]*a[3,1];
x1:=d1/d;
x2:=d2/d;
x3:=d3/d;
writeln('x1=',x1:10:4);
writeln('x2=',x2:10:4);
writeln('x3=',x3:10:4);
readln
end.