Ввести два целых числа ,найти их произведение не используя операцию умножения. 9 класс. тема "циклы"

var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
end.