Напишите программу, которая суммирует все четные числа от 15 до 25, а для всех нечетных находит сумму квадратов этиз числех

var i,sum,summ: Integer;beginfor i:=15 to 25 dobeginif i mod 2=0 then Inc(sum,i) elseif i mod 2<>0 then Inc(summ,(i*i));end;writeln('Чётные: ',sum);writeln('Нечётные: ',summ);end.