Saber

program menu;
uses crt;
var
op:char;
procedure ej;
var
op1:char;
procedure For1;
var
I : Integer ;
Begin
clrscr;
For I := 1 To 4 Do
begin
WriteLn( ' Número = ', I ) ;
end;
readkey;End;
procedure For2;
Var
I : Integer ;
Begin
clrscr;
For I := 1 To 4 Do
begin
WriteLn( ' Número = ', I ) ;
end;
readkey;
End;

begin
clrscr;
begin
repeat
begin
clrscr;writeln('Ejemplos de For');
writeln('1. Ejemplo 1');
writeln('2. Ejemplo 2');
writeln('3. Salir');
readln(op1);
case op1 of
'1':For1;
'2':For2;
end;
end;
until op1='3';
end;
end;
procedure ej2;
varop2:char;
procedure w1;

var

x:integer;

begin

clrscr;

x:=1;

while x <= 5 do

begin

writeln(x,' pato');

x:=x+1;

end;

readkey;

end;
procedure w2;
VarN,C: integer;
Begin
Write ('Introduzca numero maximo de enteros: ');
Readln (N);
C:=1;
While C<=N do
BeginWrite (C:5);
C:=C+1;

Writeln ('Fin de programa. Contador = ',C);
readkey;
end;
End;
begin
clrscr;
beginrepeat
begin
clrscr;
writeln('Ejemplos de While');
writeln('1. Ejemplo 1');
writeln('2. Ejemplo 2');
writeln('3. Salir');
readln(op2);
case op2 of
'1':w1;
'2':w2;
end;
end;
until op2='3';end;
end;
procedure ej3;
var
op3:char;
procedure r1;
Var
N,contador:integer;
Begin
Write ('Introduzca número máximo de enteros: ');
Readln (N);
Contador:= 0;Repeat
Contador:=contador+1;
Write (contador:5)
Until contador = N;
Writeln ('Fin de programa. Contador = ',contador)
End;
procedure r2;

var Contador :Integer;

begin
ClrScr;

Contador := 1;
repeat
Write( Contador, ' ' );
Contador := Contador + 1;
until Contador > 10;
end;

begin
clrscr;
begin
repeat
begin...