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

Program b;
var
 i,s:integer;
begin
 for i:=20 to 100 do  {Цикл от 20 до 100}
  if i mod 3=0 then  {Проверка на то что-бы число было кратным 3-ём}
   s:=s+i;              {Суммируем наши получившиеся чилса}
  Writeln('Cymma =' ,s);
  readln;
end.