PROGRAM EJER62; {Autor: Victor Sanchez Sanchez email: [email protected]}
USES CRT;
VAR frase : STRING;
BEGIN
CLRSCR;
{Transforma la cadena "Esto es una prueba" en "Esto es prueba"}
WRITELN ('Este programa suprime un numero determinado de letras');
WRITELN ('');
frase := 'Esto es una prueba';
WRITELN (frase);
DELETE (frase, 9, 4);
WRITELN (frase);
END.