program belajar;
uses wincrt;
var n,i:integer;
begin
readln(n);
if n=1 then write(1);
if n>1 then
begin
for i:=n downto 2do
begin
write (2*i-1,' + ');
end;
write('1 = ',sqr(n));
end;
end.
OUTPUT
0 comments:
Post a Comment