Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3

uses crt;
var
    i:integer;
    sum:integer;
begin
 sum:=0;
 for i:=1 to 100 do
  begin
  if (i>20) and (i<100) and ((i mod 3)=0) and (((i mod 10)=2) or ((i mod 10)=4) or ((i mod 10)=8)) then
   begin
    sum:=sum+i;
    writeln('Число ',i,' удовлетворяет условиям!, Сейчас сумма равна: ',sum);
   end
  else writeln('Число ',i,' не удовлетворяет условиям!');
 end;
 readln;
end.

uses crt;
var
sum,i:integer;
begin
sum:=0;
for i:=7 to 33 do
if (3*i mod 10=2) or (3*i mod 10=4) or (3*i mod 10=8) then sum:=sum+3*i;
writeln(sum);
readln;
end.

Uses WinCrt;
var
i,sum:integer;
begin
 for i:=21 to 99 do
 if (i mod 3=0) and ((i mod 10=2) or (i mod 10=4) or (i mod 10=8))then
 Begin
  sum:=sum+i;
  End;
 writeln(sum);
end.

Uses WinCrt;
Var
i,n,s,j,s1:Integer;
x: Array [1..100] of Integer;
begin
Read(n);
For i:=1 to n do
Begin
Read(x[i]);
End;
For i:=1 to n do
Begin
If x[i]>=0 Then
Begin
Inc(s);
End
else
Begin
Inc(s1);
End;
End;
If s>s1 Then
begin
Write('Положительных чисел больше!');
End;
if s1>s Then
Begin
write('Отрицательных членов больше!');
End;
If s=s1 Then
Begin
Write('Количество отрицательных членов равно количеству положительных!');
End;
End.