Объяснение:
var N,a,b,c : integer;
begin
readln(N);
a:=sqr(N-1);
b:=sqr(N);
c:=sqr(N+1);
write(a,b,c);
end.
Объяснение:
var N,a,b,c : integer;
begin
readln(N);
a:=sqr(N-1);
b:=sqr(N);
c:=sqr(N+1);
write(a,b,c);
end.