Если я всё правильно понял, то вот:
var x: array [0..15] of integer;
sum,pr,i,max:longint;
begin
randomize;
sum:=0;
pr:=1;
For i:=1 to 15 do x[i]:=random(5)+1;
For i:=1 to 15 do
begin
sum:=sum+x[i];
pr:=pr*x[i];
end;
if pr>sum then max:=pr else max:=sum;
writeln(max);
<span>end.</span>
Вбей в поисковик таблица истинности онлайн, с подробным решением выдаст
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем
<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
3 Мбайт=25165824 Бит
256 Бит=0,031 Кбайт
98678256378 Бит=12045685,59 Кбайт
2 Мбайт=16777216 Бит
4 Мбайт=33554432 Бит