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

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.