PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=n div 2;
var b:=n-a;
Writeln(n,'=',a,'+',b,', сумма квадратов равна ',a*a+b*b)
end.
Пример
n= 35
35=17+18, сумма квадратов равна 613