рассмотрим выражение x< 5. оно истинно для всех ответов рассмотрим выражение x< 3. оно истинно для 1, 2 и ложно для 3, 4 рассмотрим первую импликацию: две истины истину, значит для ответов 1,2 вторую импликацию (после или) можно не рассматривать, поскольку первая часть истинна.для вариантов 3,4 рассмотрим вторую импликацию.выражения x< 2 и x< 1 для вариантов 3,4 ложь. импликация, где оба аргумента ложь, истинна. получается, что для ответов 3,4 истинна вторая импликация, а значит значение первой несущественно (для оператора или).отсюда следует, что выражение "((x < 5)→(x < 3)) или ((x < 2)→(x < 1))" истинно при всех перечисленных значениях х: 1, 2, 3, 4
var a:array[1..n] of integer;
sum, i:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
begin
a[i]:=random(86);
write(a[i],' ');
if (a[i] mod 3 =0) and(a[i]<>0) then sum:=sum+a[i];
end;
writeln;
writeln(sum)
end.