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

var

 a, b, p, i:integer;

Begin

 p:= 0;

 write('Введите a: ');

 readln(a);

 write('Введите b: ');

 readln(b);

 if (a lt; 0) and (b lt; 0) then

 for i:=1 to Абс(b) do

   p:= p + Абс(a)

 else if ((a lt; 0) and (b gt;= 0)) or ((a gt;= 0) and (b lt; 0)) then begin

   for i:=1 to Abs(b) do

   p:= p + Абс(a);

 p:= p * -1;

 end

 else

   for i:=1 to b do

   p:= p + a;

 writeln('Творенье: ', p);

END.