Problema con producto a través de sumas sucesivas.

[gerupc]

sHola,

lo conseguí...era una tontería, lo estaba haciendo bien, el error era que el 'write(resultado) lo estaba haciendo dentro de propio bucle y claro, así no...
Aqui dejo el programita, por si a alguien que esté en un caso similar al mio, le viene bien ;-)

Código Delphi [-]
program sumas_sucesivas;

uses SysUtils;

var
        x, y: integer;
        contador: integer;
        resultado: integer;

Begin
        write('Introduce el primer numero: ');
        readln(x);
        write('Introduce el primer numero: ');
        readln(y);

        writeln('');

                resultado := 0;

                for contador := 1 to x do   //De 1 hasta x VECES
                Begin

                  resultado := resultado + y; //para asignar a resultado el valor de y, porque {0+y = y}

                End;

                write(resultado);

        Readln;
End.

Un saludo, y gracias por tu respuesta defcon1_es!! ;-)

Geru.