greedy.pas

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

program Thanoi;
const n=4;
procedure Hanoi(n,i,j:integer);
var k:integer;
begin
     if (n=1) then write('(',i,',',j,') ')
     else
         begin
              k:=6-i-j;
              hanoi(n-1,i,k);
              writeln('(',i,',',j,') ');
              hanoi(n-1,k,j);
         end;
end;
begin
writeln('*************');
hanoi(n,2,3);
readln;
end.