Program Pascal menghitung kuadrat

program kuadrat;
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write(1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write(sqr(n));
end;
end.