Ejercicios de pascal

Prácticas de Pascal
Program While1;
Uses crt;
var
frase: string;
 fin:char;
begin
writeln('Escribe una frase:');
readln( frase );
while frase '' do
begin
writeln('Su longitud es: ', length(frase) );
Writeln(‘Si deseas salir del programa oprime la tecla enter’);
write( '¿Siguiente frase?' );
readln( frase )
end;
Writeln(‘teclea T paraterminar’);
Readln(fin);
end.

Program enteros;
Uses crt;
Var
N, contador:integer;
Fin:char;
Begin
Clrscr;
Writeln(‘Teclea el número máximo de enteros a visualizar’);
Readln (N);Contador:=0;
Repeat
Contador:=contador+1;
Writeln(Contador);
Until contador=N;
Writeln (‘Teclea T para terminar’);
Readln (fin);
End.


program suma;
uses Crt;
var
   Seguir, fin : Char;
  Acumulador, Numero : Integer;
begin
   ClrScr;
   Acumulador := 0;
   repeat
      WriteLn;
      Write( '   Introduzca un numero entero: ' );
      ReadLn( Numero );
      Acumulador :=Acumulador + Numero;
      WriteLn;
      Write( '   Desea introducir otro número (s/n)?: ');
      ReadLn( Seguir );
   until Seguir = 'n';
   WriteLn;
   Write( '   La suma de los númerosintroducidos es: ', Acumulador );
Writeln (‘Teclea T para terminar’);
Readln (fin);
end.


Program valores;
Uses crt;
var valorInicial, valorFinal : Integer;
fin:char;
Begin
Clrscr;
valorInicial : ;valorFinal : ;
REPEAT
Write ' Introduzca Valor Inicial: ' ;
Readln (ValorInicial);
Write 'Introduzca Valor Final: ';
Readln (ValorFinal);
UNTIL(ValorInicialvalorFinal;
Writeln (‘Teclea T para terminar’);
Readln(fin);
end.



PROGRAM ENTEROS;
USES CRT;
VAR
N, CONTADOR:INTEGER;
FIN:CHAR;
BEGIN
CLRSCR;
Writeln(‘Teclea el númeromáximo de enteros a visualizar’);
Readln (N);
FOR CONTADOR:=1 TO N DO
WRITELN(CONTADOR;
Writeln (‘Teclea T para terminar’);
Readln(fin);
END.

PROGRAM EJER56;
USES CRT;
VAR...