Решить программу с помощью циклов while и repeat.
Посчитать сумму чисел больше 20 , но меньше 100, кратное 3.

var summ, i: integer;beginsumm:=0;for i:=21 to 99 do if (i mod 3)=0 then summ:=summ+i;write ('сумма чисел кратных трём= ',summ);end.var summ, i: integer;begini:=21;sum:=0;while (i<100) do begin if (i mod 3)=0 then summ:=summ+i; i:=i+1; end;write ('сумма чисел кратных трём= ',summ);end.var summ, i: integer;begini:=21;summ:=0;repeat if (i mod 3)=0 then summ:=summ+i; i:=i+1; until (i>=100);write ('сумма чисел кратных трём= ',summ);end.