Дан массив из 50 элементов. найти произведение всех элементов.

Var   a: array [1..50] of integer;   l: longint; begin     for  l : = 1  to  50  do   begin     a[l] : = random(-5, 5);     write(a[l], ' ');     end;   l : = 1;   writeln();     foreach  k: integer  in  a  do     l *= k;   writeln(l); end.    

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   try       readlnstring('вводите: ').tointegers.println(newline)   except       writeln('ошибка')   end end. примеры вводите: 34234 224234 233 3 141123 34234 224234 233 3 141123 вводите: 2324 24242      23234      2a  12331 ошибка вводите: 32442 -234234  +23423 32442 -234234 23423 вводите: 1+2 4 3 5 ошибка

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var k: =readinteger('начальное значение (к): ');   var n: =readinteger(' конечное значение (n): ');   var notfound: =true;   for var i: =k to n do begin       var flag: =true;       var j: =2;       var r: =round(sqrt(i));       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then begin           var s: =i.tostring;           if s=s.inverse then begin print(i); notfound: =false end           end       end;       if notfound then writeln(0) end. пример начальное значение (к): 2   конечное значение (n): 100000 2 3 5 7 11 101 131 151 181 191 313 353 373 383 727 757 787 797 919 929 10301 10501 10601 11311 11411 12421 12721 12821 13331 13831 13931 14341 14741 15451 15551 16061 16361 16561 16661 17471 17971 18181 18481 19391 19891 19991 30103 30203 30403 30703 30803 31013 31513 32323 32423 33533 34543 34843 35053 35153 35353 35753 36263 36563 37273 37573 38083 38183 38783 39293 70207 70507 70607 71317 71917 72227 72727 73037 73237 73637 74047 74747 75557 76367 76667 77377 77477 77977 78487 78787 78887 79397 79697 79997 90709 91019 93139 93239 93739 94049 94349 94649 94849 94949 95959 96269 96469 96769 97379 97579 97879 98389 98689