Equivalência de Comandos de Laço

Joao Paulo Schwarz Schuler

{tres maneiras de contar de 1 a 5 }
{$X+}
var I:longint;

begin

writeln('for:');
for I:=1 to 5 do
    begin
    {comandos}
    writeln(I);
    end;

{-----------------------------------------}
writeln('repeat:');
I:=1;
repeat
  {Comandos}
  Writeln(I);
  I:=I+1;
until I>5;

{-----------------------------------------}
writeln('while:');
I:=0;
while I<5 do
      begin
      inc(I);
      {Comandos}
      Writeln(I);
      end
end.