[vtdeleon]

Saludos.

Si se puede.

Código Delphi [-]
procedure cualquiera;
Var
  N,X:integer;
Begin
  n:=0;
  x:=0;
  while n<5 do begin
     repeat
       inc(x);
     until x<5;
     inc(n);
  end;
end;

Aunqeu esto no hace nada en especial