Pascal ABC

Найти сумму квадратов нечётных чисел: 11²+13²+15²+17²+19²

program sqrsum;

var sum,a,b,i:integer;

begin cls;

sum:=0;

write('Введите начальное нечетное число ');

readln(a);

write('Введите конечное нечетное число ');

readln(b);

write('Сумма квадратов нечетных чисел от ',a,' до ',b,' равна ');

repeat

sum:=sum+sqr(a);

a:=a+2

until a>b;

writeln(sum)

end.

ussrex

Вот тебе универсальное решение на ABC Pascal, которое поможет посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)