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

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.