Pascal/Turbo Pascal - ejercicio

Me han mandado hacer un ejercicio de multiplicar dos variables pero sin utilizar * solo sumando y restando. alguien sabe como hacerlo ?
xf ayuda

Espero que te sirva este ejemplo:

uses Crt;
var
a, b, x, y : longint;

begin
ClrScr;
x := 0;
Write ('Ingrese A: ');
ReadLn(a);
Write ('Ingrese B: ');
ReadLn(b);
if (a <> 0) or (b <> 0) then
if b > 0 then
for y := 1 to b do
x := x + a
else
if b < 0 then
for y := 1 to -b do
x := x - a;
WriteLn('El resultado de ', a, ' * ', b, ' es: ', x);
Write ('Pulse una tecla para salir...');
ReadKey
end.