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 Begin
resultado := resultado + y;
End;
write(resultado);
Readln;
End.
Un saludo, y gracias por tu respuesta defcon1_es!! ;-)
Geru.