Ejemplos Repeat

Escribir un programa en Pascal que realice un bucle con Repeat y muestre en pantalla del 1 al 10.

program prog6;

uses crt;

var

x:integer;

begin

clrscr;

x:=1;

REPEAT

BEGIN

gotoxy(10,4+x);

write(x,' CONEJITO BLANCO HIMALAYA');

x:=x+1;

END

UNTIL x = 5;

readln;

end.

Program escribeenteros;
 Var
    N,contador:integer;
 Begin
     Write ('Introduzca número máximo de enteros: ');
     Readin (N);
     Contador:= O;
     Repeat
           Contador:=contador+1;
           Write (contador:5)
     Until contador = N;
     Writeln ('Fin de programa. Contador = ',contador)
 End.