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

program sum_sqr;

var a, b:integer;

s:real;

begin

writeln ('Введите два числа через пробел');

readln (a, b);

if a > b then / /Если а больше b, тогда а и b обмениваются значениями

begin

s:=0;

b:=b+a;

a:=b-a;

b:=b-a;

end;

for i: integer: = a to b do s: = s + power (i, 2);

writeln (s)

end.