Ripetizioni

di
Algoritmo Da 1 a 10 Da 10 a 1
ciclo2 
A:=1;
Repeat
   Writeln(A);
   A:=A+1;
Until(A > 10);
 
A:=10;
Repeat
   Writeln(A);
   A:=A-1;
Until(A <= 0);
ciclo12 
A:=1;
While(A <= 10) Do
   Begin
      Writeln(A);
      A:=A+1;
   End;
 
A:=10;
While(A > 0) Do
   Begin
      Writeln(A);
      A:=A-1;
   End;
 
For A:=1 To 10 Do
   Writeln(A);
 
For A:=10 DownTo 1 Do
   Writeln(A);