Начертить граф по информатике для сказки "3 поросенка"

a - уровень продаж, а затем зп первого менеджераb - второго менеджераc - третьегоуровень продаж у всех разный.язык программирования: паскальvara, b, c: integer; beginreadln (a); if a < 500 thena : = 0.03 * a + 200; if (a > 500) and (a < 1000) thena : = 0.05 * a + 200; if a > 1000 thena : = 0.08 * a + 200; readln (b); if b < 500 thenb : = 0.03 * b + 200; if (b > 500) and (b < 1000) thenb : = 0.05 * b + 200; if b > 1000 thenb : = 0.08 * b + 200; readln (c);   if c < 500 thenc : = 0.03 * c + 200; if (c > 500) and (c < 1000) thenc : = 0.05 * c + 200; if c > 1000 thenc : = 0.08 * c + 200;   if (a > b) and (a > c) thena : = a +200; elseif b > c thenb : = b + 200; elsec : = c + 200; wreteln ('зп первого менеджера: ', a, '$'); wreteln ('зп второго менеджера:   ', b, '$');   wreteln ('зп третьего менеджера:   ', c, '$')end.

Const
  n=4;
var
  arr: array[1..n, 1..n] of integer;
  i, j, t, buf: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      begin
        write('Введите элемент: ');
        readln(arr[i,j]);
      end;
    writeln('Введеная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
          write(arr[i,j]:4);
      writeln();
    end;
//Сортировка
  for j:=1 to n do
    for i:=1 to n-1 do
      for t:=i+1 to n do
        if arr[i,j] > arr[t,j] then
          begin
            buf := arr[i,j];
            arr[i,j] := arr[t,j];
            arr[t,j] := buf;
           end;
  writeln('Отсортированная матрица:');
   for i:=1 to n do
      begin
        for j:=1 to n do
          write(arr[i,j]:4);
        writeln();
      end;
  end.