Записать алгоритм и программу нахождения произведения чисел 2 4 6 8 10 12 14 16 18 20

For i: =1 to n do  if i mod 2=0 then  sum: =sum*i; n - до какого числа перемножать

Unit unit1; interface uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, extctrls, stdctrls; type   tform1 = class(tform)       button1: tbutton;       image1: timage;       edit1: tedit;       label1: tlabel;       procedure button1click(sender: tobject);       procedure formcreate(sender: tobject);   private       { private declarations }   public       { public declarations }   end; var   form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject);   var   x,y,t: real;   x1,y1,m: integer; //m -коэффициент масштабирования begin   x1: =image1.width div 2;   y1: =image1.height div 2;   with image1.canvas do   begin       moveto(x1,0); lineto(x1,image1.height);       moveto(x1,0); lineto(x1-5,10);       moveto(x1,0); lineto(x1+5,10);       moveto(0,y1); lineto(image1.width,y1);       lineto(image1.width-10,y1-5);       moveto(image1.width,y1); lineto(image1.width-10,y1+5);       textout(x1+1,y1+1,'0');       textout(image1.width-16,y1+2,'x');       textout(x1-15,0,'y');       x : = -200;       y : = 1/x;       m: =strtoint(edit1.text);       moveto(x1+round(x)*m,(y1-round(y)*m));       repeat           x: =x+0.1;           if x< > 0 then //точка разрыва           begin             y : = 1/x;             lineto(x1+round(x*-round(y*;           end           else           begin             x: =x+0.1;             y : = 1/x;             moveto(x1+round(x*-round(y*;           end;       until x> =200;   end; end; procedure tform1.formcreate(sender: tobject); begin   label1.caption: ='коэффициент масштабирования';   button1.caption: ='построить';   edit1.text: ='15';   button1.onclick(sender); //построение end; end.