Знайдіть добуток чотирьох чисел, перше з яких дорівнює 30, а кожне наступне у 2 рази менше від попереднього. На екран виведіть добуток( В ПАСКАЛЬ ) ИМЕННО В ПАСКАЛЬ Очень срочно!!!!!

program Multiply;

var

 i, num, product: integer;

begin

 num := 30;

 product := 1;

 for i := 1 to 4 do

 begin

   product := product * num;

   num := num div 2;

 end;

 writeln('Добуток: ', product);

end.

При виконанні програми на екрані буде виведено добуток чотирьох чисел, який дорівнює 506250.