Паскаль. вычислить сумму чисел, оканчивающихся на 3, на отрезке [13,75], вычислить сумму чисел кратных 3 на отрезке [13,75]. сравнить полученные суммы и вывести сообщение о том что больше

var i, sum1, sum2: integer;

begin

   sum1:= 0;

   sum2:= 0;

   for i:= 13 to 75 do

       if i mod 10 = 3 then

           sum1:= sum1 + i

       else if i mod 3 = 0 then

           sum2:= sum2 + i;

   if sum1 > sum2 then writeln("Первая сумма больше") else

   if sum2 > sum1 then writeln("Вторая сумма больше");

end.