lklk.pas

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

program ger;
type stiva=array [1..50] of integer;
var st:stiva;
    k,i:integer;
    as,ev:boolean;
    a:array [1..20,1..20] of integer;


procedure citire;
var x,y,n:integer;
    f:text;
begin
assign(f,'graf.txt');
reset(f);
readln(f,n);
while not eof(f) do     begin
                        read(f,x,y);
                        a[x,y]:=1;
                        end;
close(f);
end;


function grad_ext(x:integer):integer;
         var i,s:integer;
begin
s:=0;
for i:=1 to n do
    s:=s+a[x,i];
    grad_ext:=s;
end;


function grad_int(x:integer):integer;
         var i,s:integer;
begin
s:=0;
for i:=1 to n do
    s:=s+a[i,x];
    grad_int:=s;
end;

procedure init(var st:stiva,k:integer);
begin
st[k]:=0;
end

procedure succesor(var st:stiva, k:=integer, var as:boolean);
begin
if st[k]<n then begin
                st[k]:=st[k+1];
                as:=true;
                end
            else as:=false;
end;

procedure valid(st:stiva, k:integer, var ev:boolean);
          var i:integer;
begin
ev:=true;
if (k>1) and (a[st[k],st[k+1]]=0) then ev:=false;
for