Составить программку для решения задачки: Ввести два числа, найти их творенье,

program HelloWorld;

var a, b, i: integer;

begin

   readln(a,b);

   i:=1;

  while ilt;b do

  begin  

  a:=a+a;

  i:=i+1;

  end;

  write (a);

end.

Var a,b,i,j:integer;

Begin

writeln('Введите 2 числа');

Readln(a);

Readln(b);

j:=0;

for i:=1 to b do begin

j=j+a;

end;

writeln('творенье чисел = 'j);

end.

Я только на Паскале знаю так что чем сумел посодействовал)