Pascal/Turbo Pascal - ayuda con esto

Solo necesito multiplicar pero sin usar el signo de *(por) Queria saber si alguien me podria orientar un poco mas es solo que aun no he logrado programar bn este programilla que aunque no tiene nada de dificil para los que ya saben para nosotros los novatos nos hace quebrarnos la cabeza por unos momentos.
El problema es que ya pido los numeros por multiplicar pero al mo mento de multiplicarlos no me resulta espero alguien me pueda orientar un poco. De antemano mil gracias por cualquier respuesta. aki el kodigo

program sumando;
uses crt;
var
numero1,numero2,suma, total: real;
producto:real;
contador:integer;

begin
clrscr;
contador:=1;
writeln('dame un valor');
readln(numero1);
writeln('escribe el valor por el que quieras multiplicarlo');
readln(numero2);

producto:= numero1 + numero2;
suma:=suma + numero2;
contador:= contador + 1;
if contador > numero2 then
writeln('')
else
writeln('tu multiplicacion es:', suma + numero2);
readln;
end.

Creo que ya contesté,pero no fue suficiente.
En la linea del FOR no se puede introducir signos de relacion. El programa quedaría así:

var
Multiplicando, Multiplicador,SumaT : real;
i : integer;

begin
write('Introduce el Multiplicando: ');
readln(Multiplicando);
writeln;
write('Introduce el Multiplicador: ');
readln(Multiplicador);
SumaT := 0;

FOR i := 1 to Multiplicador do
SumaT := SumaT+Multiplicando;
writeln;
writeln;
writeln('El producto de ambos numeros es: ',SumaT:8:2)
end.

Espero te solucione el problema.
Un saludo: Martin

aun no me corre el programa alguien me podria dar una ayudadita aki dejo el codigo:
program sumando;
uses crt;
var
multiplicando,multiplicador,sumaT: real;
cont:integer;

begin
clrscr;

writeln('dame un valor');
readln(multiplicando);
writeln('escribe el valor por el que quieras multiplicarlo');
readln(multiplicador);
sumaT:=0;
for cont:= 1 to multiplicador do;
sumaT:=sumaT + multiplicando;
writeln;
writeln;
writeln;
writeln('el producto de ambos numeros es:',sumaT:8:2);
readln;
end.