Требуется написать программу, которая получает два числа и находит их проведение, не используя операцию умножения.
ВАЖНО!!!НУЖНО ИСПОЛЬЗОВАТЬ REPEAT и UNTIL

program z1;var A,B,C,I:integer;beginWriteln('введите числа');Readln(A,B);C:=0;i:=1;repeatC:=C+A;I:=I+1;until i>B;writeln(C);end.