Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(8);
if a[i] mod 2 = 0 then
a[i]:=a[i]+1
else
a[i]:=a[i]*2;
end;
<span>end.</span>
37 mod 2 будет равно 1.
151 mod 2 будет равно 1.
13000+300+70+5 вот в развернуть виде ето же легко
1.Отправка смс/ммс.
2.Снятие денег со счета моб.телефона.
3.Блокировка экрана.
5 возведи в квадрат, так как только 2 цифры(0 и 1) =25;