Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
PascalABC.NET 3.2:
begin
print(5.To(65).Aggregate(BigInteger(1), (p, x) -> p*x)
end.
Ответ должен получиться 343652108003436277780132096116062343841094106306059895538421797266206490624000000000000000