Задание:Простой ориентированный граф задан списком ребер, выведите его представление в виде матрицы смежности. Входные данныеНа вход программы поступают числа n ( 1≤n≤100 ) – количество вершин в графе и m ( 1≤m≤n(n−1) ) – количество ребер. Затем следует m пар чисел – ребра графа. Выходные данныеВыведите матрицу смежности заданного графа. КОД:var a,b,m,n,i,j,k,x,y:longint;mas: array [1. . 1000, 1. . 1000] of integer;beginread(n, m);for k:= 1 to m doreadln(x, y);a:=n;b:=n;for i:=1 to a dobeginfor j:=1 to b dobeginif (i= y) and (j= x) thenif j=b thenwriteln(1)elsewrite(1)elseif j=b thenwriteln(0)elsewrite(0);end;end;end. посчитайте плиз. . .