Hi, am new here.. anyway, I was hoping somebody could give me information about programming using repeat and while..

The problem is :

using while .. do

5
5 4
5 4 3
5 4 3 2
5 4 3 2 1


and using repeat until
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1


I've been puzzling over this for a while and all my efforts have given me an output of:
5
4
3
2
1

for the 'while' and similar output for the 'repeat'

Is the process similar to the 'for'?
I've been able to do the required output using FOR command, but I cannot seem to apply it to REPEAT and WHILE.

Your help would be greatly appreciated.

program looptest;

var
  I, N:integer;
  
begin
  WriteLn('using while .. do');
  N:=5;
  while ( N >= 1 ) do begin
    I:=5;
    while (I >= N ) do begin
      write(I ,#32);
      dec(I)
    end;
    writeln;
    dec(N);
  end;
  WriteLn( 'using repeat .. until');
  N:=5;
  repeat
    I:=0;
    repeat
      inc(I);
      write(I, #32);
    until ( I >= N );
    writeln;
    dec(N);
  until ( N < 1 );
end.

The code is a great help.. now I'm beginning to understand the logic involved better :)

Many thanks for your quick reply!