паскаль
розробіть програму, яка визначатиме добуток чисел від 1 до 30

Спасибо)))))))

не за что ...правда украинский не понимаю..условие в переводчике перевела..))

program al;var p,i:integer;   begin    p:=1;   for i:= 1 to 30 do   p:=p*i;   writeln('p=',p);   readln;   end.