Найти сумму всех чисел диапазона, кратных 3 и 8 и заканчивающихся на 2 или 4 - Turbo Pascal

Формулировка задачи:

Надо найти сумму всех чисел от 50 до 500, кратных 3 и 8 и заканчивающихся на 2 или 4. Составила программку, но не уверенна, что правильно:

                    Листинг программы
                
 
                        
                          
                    
var x: integer; sum: real;
begin
  SetConsoleOutPutCP(1251);
  sum:=0;
  for x:=50 to 500 do
  begin
  if (x mod 3=0) and (x mod 8=0) then
  sum:=sum+x;
  writeln(sum:0:2);
  end;
 
readln;
end.

Решение задачи: «Найти сумму всех чисел диапазона, кратных 3 и 8 и заканчивающихся на 2 или 4»

Листинг программы

x:=(50+23) div 24 * 24;
while x<=500 do begin
  if x mod 10 in [2,4] then sum:=sum+x;
  Inc(x,24);
end;
WriteLn('Сумма: ',sum);

Объяснение кода листинга программы

x:=(50+23) div 24 * 24; Здесь мы вычисляем значение переменной x, которое представляет собой сумму чисел 50 и 23, деленную на 24, умноженную на 24.
while x<=500 do begin Это цикл while, который выполняется, пока значение переменной x не станет больше или равно 500.
if x mod 10 in [2,4] then sum:=sum+x; Здесь мы проверяем, делится ли число x на 10 и если да, то добавляем его к сумме (sum). В данном случае, мы проверяем, что остаток от деления x на 10 равен 2 или 4.
Inc(x,24); Здесь мы увеличиваем значение переменной x на 24.
end; Это конец блока begin-end, который описывает цикл while.
WriteLn('Сумма: ',sum); Здесь мы выводим на экран строку Сумма:, за которой следует значение переменной sum.