Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b] - Turbo Pascal

1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

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

sum:=0;
for i:=a to b do
if i mod 2=0 then sum:=sum+i*i;

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

Создаётся переменная sum, которая будет хранить сумму квадратов чётных чисел. Значение по умолчанию - 0.
Запускается цикл for, который проходит по всем числам от a до b (включительно).
Внутри цикла проверяется, является ли текущее число i четным. Если да, то выполняется следующая часть условия и переменная sum обновляется.
Вычисляется квадрат текущего числа i.
К полученному значению прибавляется значение переменной sum.
Если текущее число i нечетное, то оно пропускается без обработки.
После завершения цикла переменная sum содержит сумму квадратов всех четных чисел в промежутке [a,b].