Write a program that enters the natural numbers a and b and outputs the sum of the squares of the natural

Write a program that enters the natural numbers a and b and outputs the sum of the squares of the natural numbers in the range a through b.

program sum_sqr;

var a, b: integer;

s: real;

begin

writeln (‘Enter two numbers separated by a space’);

readln (a, b);

if a> b then // If a is greater than b, then a and b exchange values

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.