Вот. Умножение без помощи операции умножения. Делай лучшим)
program pr;
var i,a,b:integer;p:real;
begin
write('Первый множитель: ');
readln(a);
write('Второй множитель: ');
readln(b);
if b<0 then begin
b:=-b;
for i:=1 to b do begin
p:=p+a;
end;
writeln(-p:0:2);
end
else begin
for i:=1 to b do p:=p+a;
writeln(p:0:2)
end;
end.