Выражения, используя законы логики :
(а или в и с) или (а или в и не с)

1) var  a: array[0..10] of integer;  i, s: integer;
begin    
for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');    
if a[i]<=20 then s:=s+a[i];
end;  
writeln;  
writeln(s);
end.

2) var  a: array[0..10] of integer;  i, s: integer;
begin    for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');  
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.    
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.  
end;    
writeln;  
writeln(s);
end.

1) var a1, a2, a3, s: integer;
begin    
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.

2) var n, s, i: integer;
begin    
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

3) var n, s, i, k: integer;
begin    
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.

4)var  l, m: integer;
begin 
write('Введите расстояние в сантиметрах: '); 
readln(l); 
m := l div 100; 
write('Количество метров в ', l, ' сантиметрах = ', m);
end.