rograff.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var a:array[1..50,1..50] of integer;
    n,i,j:integer;
    f:text;
function grad_ext(x:integer):integer;
var k,s:integer;
begin
s:=0;
for k:=1 to n do s:=s+a[x,k];
grad_ext:=s;
end;
function grad_int(x:integer):integer;
var k,s:integer;
begin
s:=0;
for k:=1 to n do s:=s+a[k,x];
grad_int:=s;
end;
begin
assign(f,'graf.txt');
reset(f);
readln(f,n);
while not eof(f) do begin
                    readln(f,i,j);
                    a[i,j]:=1;
                    end;
close(f);
for i:=1 to n do begin
                 write('gradul exterior al lui ',i,' este  ',grad_ext(i),' iar gradul interior ',grad_int(i));
                 writeln;
                 end;
end.