Hola,

Tengo que hacer un programa que solicita al usuario X números y éstes sean multiplicados por un número que también introduce el usuario.

Esto es lo que tengo hecho:

program multi;

var
cadena: string[10];
i: integer;
multiplicador: integer;


begin

writeln('Introduzca una cadena de maximo diez caracteres');
readln(cadena);
writeln('Introduzca un multiplicador');
readln(multiplicador);
for i := 1 to Length(cadena) do


writeln((cadena),' x:',(multiplicador),' =',((multiplicador * cadena));
readln();





end.