{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.