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

program sum_sqr;

  var a, b:integer; 

  s:real;

 begin

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

 readln(a, b);

 if a gt; 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.