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

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.