напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 4 и оканчивающихся на 6

{1 } var   form1: tform1;   s1,s2: string; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); begin     s1: ='stroka1';     s2: ='stroka2';     label1.caption: =s1;     label2.caption: =s2; end; procedure tform1.button1click(sender: tobject); var s: string; begin     s: =s2;     s2: =s1;     s1: =s;     label1.caption: =s1;     label2.caption: =s2 end; end. {2 } var   form1: tform1;   n: integer;   a: array[1..10] of integer; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); var i: integer; begin   randomize;   label1.caption: ='';   label2.caption: ='';   n: =10;   for i: =1 to n do   a[i]: =random(100); end; procedure tform1.button1click(sender: tobject); var i: integer; begin   for i: =1 to n do   label1.caption: = label1.caption + ' '+inttostr(a[i]); end; procedure tform1.button2click(sender: tobject); var i: integer; begin   for i: =1 to n do   if a[i]< strtoint(edit1.text) then   label2.caption: = label2.caption + ' '+inttostr(a[i]); end; end.