PROGRAM EX01;
  VAR A,B,C:INT;
      

BEGIN
  C:=9;
  A:=0;
  B:=2;

   REPEAT
    A:=A+1;
  UNTIL A=10;

  FOR A:=10 DOWNTO 1

  DO
    B:=100;

  FOR A:=1 TO 10

  DO
    C:=100;

 WRITE(A);

END.