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

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