常用算法及例题（delphi语言）

program zuhe11;

if (i<>j) and (i<>k) and (i>j) and (j>k) then

begin

t:=t+1;writeln(i:3,j:3,k:3);

end;

writeln('total=',t);

end.

program poi24; {point24}

type arr=array [1..4] of integer;

var i,result,n,len:integer;

d:arr;

r:array [1..3,1..4] of integer;

infile,outfile:text;

procedure print;

else case r[i,j] of