Напишите программу в паскале, которая вводит два целых числа и находит их произведение, не используя операцию умножения.Учтите,

program produkt;var a, b, p: integer;beginp:= 0;writeln(\'Введите два множителя через пробел\');readln(a, b);//Если оба числа положительны или оба отрицательны,то операцию умножения //можно заменить многократным добавлением модуля одного из чисел.//Если одно число отрицательно, другое положительно,//то умножение можно заменить многократным вычитанием модуля одного из чисел.if ((a > 0) and (b > 0)) or ((a < 0) and (b < 0)) then for i:integer:= 1 to abs(b) do p:= p + abs(a)else for i:integer:= 1 to abs(b) do p:= p - abs(a);writeln(\'Произведение: \', p)end.