написать программу вычислений суммы квадратов двухзначных чисел делящихся на 8 (10;99)

Program n1;var sum,i: integer;beginsum:=0;for i:=10 to 99 do if i mod 8 =0 then sum:=sum+i*i;writeln(sum);end.